Debugger entered--Lisp error: (quit)
  accept-process-output(#<process IMAP<1>> 1)
  (while (and (memq (process-status process) (quote (open run))) (goto-char (point-max)) (or (/= (forward-line -1) 0) (not (elmo-imap4-parse-greeting)))) (accept-process-output process 1))
  (save-current-buffer (set-buffer (process-buffer process)) (while (and (memq (process-status process) (quote (open run))) (goto-char (point-max)) (or (/= (forward-line -1) 0) (not (elmo-imap4-parse-greeting)))) (accept-process-output process 1)) (erase-buffer) (set-process-filter process (quote elmo-imap4-arrival-filter)) (set-process-sentinel process (quote elmo-imap4-sentinel)) (unless (memq elmo-imap4-status (quote (nonauth auth))) (signal (quote elmo-open-error) (list (quote elmo-network-initialize-session)))) (elmo-imap4-session-set-capability-internal session (elmo-imap4-response-value (elmo-imap4-send-command-wait session "capability") (quote capability))) (when (eq (elmo-network-stream-type-symbol (elmo-network-session-stream-type-internal session)) (quote starttls)) (or (elmo-imap4-session-capable-p session (quote starttls)) (signal (quote elmo-open-error) (quote (elmo-imap4-starttls-error)))) (elmo-imap4-send-command-wait session "starttls") (starttls-negotiate process) (elmo-imap4-session-set-capability-internal session (elmo-imap4-response-value (elmo-imap4-send-command-wait session "capability") (quote capability)))))
  (with-current-buffer (process-buffer process) (while (and (memq (process-status process) (quote (open run))) (goto-char (point-max)) (or (/= (forward-line -1) 0) (not (elmo-imap4-parse-greeting)))) (accept-process-output process 1)) (erase-buffer) (set-process-filter process (quote elmo-imap4-arrival-filter)) (set-process-sentinel process (quote elmo-imap4-sentinel)) (unless (memq elmo-imap4-status (quote (nonauth auth))) (signal (quote elmo-open-error) (list (quote elmo-network-initialize-session)))) (elmo-imap4-session-set-capability-internal session (elmo-imap4-response-value (elmo-imap4-send-command-wait session "capability") (quote capability))) (when (eq (elmo-network-stream-type-symbol (elmo-network-session-stream-type-internal session)) (quote starttls)) (or (elmo-imap4-session-capable-p session (quote starttls)) (signal (quote elmo-open-error) (quote (elmo-imap4-starttls-error)))) (elmo-imap4-send-command-wait session "starttls") (starttls-negotiate process) (elmo-imap4-session-set-capability-internal session (elmo-imap4-response-value (elmo-imap4-send-command-wait session "capability") (quote capability)))))
  (let ((process (elmo-network-session-process-internal session))) (with-current-buffer (process-buffer process) (while (and (memq (process-status process) (quote (open run))) (goto-char (point-max)) (or (/= (forward-line -1) 0) (not (elmo-imap4-parse-greeting)))) (accept-process-output process 1)) (erase-buffer) (set-process-filter process (quote elmo-imap4-arrival-filter)) (set-process-sentinel process (quote elmo-imap4-sentinel)) (unless (memq elmo-imap4-status (quote (nonauth auth))) (signal (quote elmo-open-error) (list (quote elmo-network-initialize-session)))) (elmo-imap4-session-set-capability-internal session (elmo-imap4-response-value (elmo-imap4-send-command-wait session "capability") (quote capability))) (when (eq (elmo-network-stream-type-symbol (elmo-network-session-stream-type-internal session)) (quote starttls)) (or (elmo-imap4-session-capable-p session (quote starttls)) (signal (quote elmo-open-error) (quote (elmo-imap4-starttls-error)))) (elmo-imap4-send-command-wait session "starttls") (starttls-negotiate process) (elmo-imap4-session-set-capability-internal session (elmo-imap4-response-value (elmo-imap4-send-command-wait session "capability") (quote capability))))))
  (lambda (session) (let ((process (elmo-network-session-process-internal session))) (with-current-buffer (process-buffer process) (while (and (memq (process-status process) (quote (open run))) (goto-char (point-max)) (or (/= (forward-line -1) 0) (not (elmo-imap4-parse-greeting)))) (accept-process-output process 1)) (erase-buffer) (set-process-filter process (quote elmo-imap4-arrival-filter)) (set-process-sentinel process (quote elmo-imap4-sentinel)) (unless (memq elmo-imap4-status (quote (nonauth auth))) (signal (quote elmo-open-error) (list (quote elmo-network-initialize-session)))) (elmo-imap4-session-set-capability-internal session (elmo-imap4-response-value (elmo-imap4-send-command-wait session "capability") (quote capability))) (when (eq (elmo-network-stream-type-symbol (elmo-network-session-stream-type-internal session)) (quote starttls)) (or (elmo-imap4-session-capable-p session (quote starttls)) (signal (quote elmo-open-error) (quote (elmo-imap4-starttls-error)))) (elmo-imap4-send-command-wait session "starttls") (starttls-negotiate process) (elmo-imap4-session-set-capability-internal session (elmo-imap4-response-value (elmo-imap4-send-command-wait session "capability") (quote capability)))))))([elmo-imap4-session [0 0 0 0 0 0 0] "IMAP" "mail.snowmen.se" 993 "andreasda" clear nil #<process IMAP<1>> nil (20540 50470 944665) nil nil nil nil])
  apply((lambda (session) (let ((process (elmo-network-session-process-internal session))) (with-current-buffer (process-buffer process) (while (and (memq (process-status process) (quote (open run))) (goto-char (point-max)) (or (/= (forward-line -1) 0) (not (elmo-imap4-parse-greeting)))) (accept-process-output process 1)) (erase-buffer) (set-process-filter process (quote elmo-imap4-arrival-filter)) (set-process-sentinel process (quote elmo-imap4-sentinel)) (unless (memq elmo-imap4-status (quote (nonauth auth))) (signal (quote elmo-open-error) (list (quote elmo-network-initialize-session)))) (elmo-imap4-session-set-capability-internal session (elmo-imap4-response-value (elmo-imap4-send-command-wait session "capability") (quote capability))) (when (eq (elmo-network-stream-type-symbol (elmo-network-session-stream-type-internal session)) (quote starttls)) (or (elmo-imap4-session-capable-p session (quote starttls)) (signal (quote elmo-open-error) (quote (elmo-imap4-starttls-error)))) (elmo-imap4-send-command-wait session "starttls") (starttls-negotiate process) (elmo-imap4-session-set-capability-internal session (elmo-imap4-response-value (elmo-imap4-send-command-wait session "capability") (quote capability))))))) [elmo-imap4-session [0 0 0 0 0 0 0] "IMAP" "mail.snowmen.se" 993 "andreasda" clear nil #<process IMAP<1>> nil (20540 50470 944665) nil nil nil nil])
  luna-call-next-method()
  luna-apply-generic([elmo-imap4-session [0 0 0 0 0 0 0] "IMAP" "mail.snowmen.se" 993 "andreasda" clear nil #<process IMAP<1>> nil (20540 50470 944665) nil nil nil nil] elmo-network-initialize-session [elmo-imap4-session [0 0 0 0 0 0 0] "IMAP" "mail.snowmen.se" 993 "andreasda" clear nil #<process IMAP<1>> nil (20540 50470 944665) nil nil nil nil])
  elmo-network-initialize-session([elmo-imap4-session [0 0 0 0 0 0 0] "IMAP" "mail.snowmen.se" 993 "andreasda" clear nil #<process IMAP<1>> nil (20540 50470 944665) nil nil nil nil])
  (progn (elmo-network-initialize-session session) (elmo-network-authenticate-session session) (elmo-network-setup-session session) (setq success t))
  (if (elmo-network-session-set-process-internal session (elmo-open-network-stream (elmo-network-session-name-internal session) (elmo-network-session-buffer-create session) server port stream-type)) (progn (elmo-network-initialize-session session) (elmo-network-authenticate-session session) (elmo-network-setup-session session) (setq success t)))
  (when (elmo-network-session-set-process-internal session (elmo-open-network-stream (elmo-network-session-name-internal session) (elmo-network-session-buffer-create session) server port stream-type)) (elmo-network-initialize-session session) (elmo-network-authenticate-session session) (elmo-network-setup-session session) (setq success t))
  (condition-case error (when (elmo-network-session-set-process-internal session (elmo-open-network-stream (elmo-network-session-name-internal session) (elmo-network-session-buffer-create session) server port stream-type)) (elmo-network-initialize-session session) (elmo-network-authenticate-session session) (elmo-network-setup-session session) (setq success t)) (elmo-authenticate-error (elmo-remove-passwd (elmo-network-session-password-key session)) (message "Authetication is failed") (sit-for 1) (elmo-network-close-session session) (unless (if (numberp retry) (> (setq retry (1- retry)) 0) retry) (signal (car error) (cdr error)))) (elmo-open-error (elmo-set-plugged nil server port (elmo-network-stream-type-symbol stream-type) (current-time)) (message "Auto plugged off at %s:%d :%s" server port (cadr error)) (sit-for 1) (elmo-network-close-session session) (signal (car error) (cdr error))) (error (elmo-network-close-session session) (signal (car error) (cdr error))))
  (while (not success) (condition-case error (when (elmo-network-session-set-process-internal session (elmo-open-network-stream (elmo-network-session-name-internal session) (elmo-network-session-buffer-create session) server port stream-type)) (elmo-network-initialize-session session) (elmo-network-authenticate-session session) (elmo-network-setup-session session) (setq success t)) (elmo-authenticate-error (elmo-remove-passwd (elmo-network-session-password-key session)) (message "Authetication is failed") (sit-for 1) (elmo-network-close-session session) (unless (if (numberp retry) (> (setq retry (1- retry)) 0) retry) (signal (car error) (cdr error)))) (elmo-open-error (elmo-set-plugged nil server port (elmo-network-stream-type-symbol stream-type) (current-time)) (message "Auto plugged off at %s:%d :%s" server port (cadr error)) (sit-for 1) (elmo-network-close-session session) (signal (car error) (cdr error))) (error (elmo-network-close-session session) (signal (car error) (cdr error)))))
  (let ((session (luna-make-entity class :name name :server server :port port :user user :auth auth :stream-type stream-type :process nil :greeting nil :last-accessed (current-time))) (retry elmo-network-session-retry-count) success) (while (not success) (condition-case error (when (elmo-network-session-set-process-internal session (elmo-open-network-stream (elmo-network-session-name-internal session) (elmo-network-session-buffer-create session) server port stream-type)) (elmo-network-initialize-session session) (elmo-network-authenticate-session session) (elmo-network-setup-session session) (setq success t)) (elmo-authenticate-error (elmo-remove-passwd (elmo-network-session-password-key session)) (message "Authetication is failed") (sit-for 1) (elmo-network-close-session session) (unless (if (numberp retry) (> (setq retry ...) 0) retry) (signal (car error) (cdr error)))) (elmo-open-error (elmo-set-plugged nil server port (elmo-network-stream-type-symbol stream-type) (current-time)) (message "Auto plugged off at %s:%d :%s" server port (cadr error)) (sit-for 1) (elmo-network-close-session session) (signal (car error) (cdr error))) (error (elmo-network-close-session session) (signal (car error) (cdr error))))) session)
  elmo-network-open-session(elmo-imap4-session "IMAP" "mail.snowmen.se" 993 "andreasda" clear nil)
  (setq session (elmo-network-open-session class name (elmo-net-folder-server-internal folder) (elmo-net-folder-port-internal folder) (elmo-net-folder-user-internal folder) (elmo-net-folder-auth-internal folder) (elmo-net-folder-stream-type-internal folder)))
  (if if-exists nil (setq session (elmo-network-open-session class name (elmo-net-folder-server-internal folder) (elmo-net-folder-port-internal folder) (elmo-net-folder-user-internal folder) (elmo-net-folder-auth-internal folder) (elmo-net-folder-stream-type-internal folder))) (setq elmo-network-session-cache (cons (cons key session) elmo-network-session-cache)) session)
  (unless if-exists (setq session (elmo-network-open-session class name (elmo-net-folder-server-internal folder) (elmo-net-folder-port-internal folder) (elmo-net-folder-user-internal folder) (elmo-net-folder-auth-internal folder) (elmo-net-folder-stream-type-internal folder))) (setq elmo-network-session-cache (cons (cons key session) elmo-network-session-cache)) session)
  (if pair (progn (elmo-network-session-set-last-accessed-internal (cdr pair) (current-time)) (cdr pair)) (unless if-exists (setq session (elmo-network-open-session class name (elmo-net-folder-server-internal folder) (elmo-net-folder-port-internal folder) (elmo-net-folder-user-internal folder) (elmo-net-folder-auth-internal folder) (elmo-net-folder-stream-type-internal folder))) (setq elmo-network-session-cache (cons (cons key session) elmo-network-session-cache)) session))
  (let (pair session key) (if (not (elmo-plugged-p (elmo-net-folder-server-internal folder) (elmo-net-folder-port-internal folder) (elmo-network-stream-type-symbol (elmo-net-folder-stream-type-internal folder)))) (error "Unplugged")) (setq pair (assoc (setq key (elmo-network-session-cache-key name folder)) elmo-network-session-cache)) (when (and pair (or (not (memq (process-status (elmo-network-session-process-internal ...)) (quote (open run)))) (and elmo-network-session-idle-timeout (elmo-network-session-last-accessed-internal (cdr pair)) (elmo-time-expire (elmo-network-session-last-accessed-internal (cdr pair)) elmo-network-session-idle-timeout)))) (setq elmo-network-session-cache (delq pair elmo-network-session-cache)) (elmo-network-close-session (cdr pair)) (setq pair nil)) (if pair (progn (elmo-network-session-set-last-accessed-internal (cdr pair) (current-time)) (cdr pair)) (unless if-exists (setq session (elmo-network-open-session class name (elmo-net-folder-server-internal folder) (elmo-net-folder-port-internal folder) (elmo-net-folder-user-internal folder) (elmo-net-folder-auth-internal folder) (elmo-net-folder-stream-type-internal folder))) (setq elmo-network-session-cache (cons (cons key session) elmo-network-session-cache)) session)))
  elmo-network-get-session(elmo-imap4-session "IMAP" [elmo-imap4-folder [0 0 0 0 0 0 0] imap4 "%tst" "%" "/home/ante/.elmo/imap/mail.snowmen.se/andreasda/tst" nil nil nil t nil nil utf-8 "andreasda" clear "mail.snowmen.se" 993 nil "tst"] nil)
  elmo-imap4-get-session([elmo-imap4-folder [0 0 0 0 0 0 0] imap4 "%tst" "%" "/home/ante/.elmo/imap/mail.snowmen.se/andreasda/tst" nil nil nil t nil nil utf-8 "andreasda" clear "mail.snowmen.se" 993 nil "tst"])
  (let ((session (elmo-imap4-get-session folder))) (if (string= (elmo-imap4-session-current-mailbox-internal session) (elmo-imap4-folder-mailbox-internal folder)) t (elmo-imap4-session-select-mailbox session (elmo-imap4-folder-mailbox-internal folder) (quote force) (quote notify-bye))))
  (lambda (folder) (let ((session (elmo-imap4-get-session folder))) (if (string= (elmo-imap4-session-current-mailbox-internal session) (elmo-imap4-folder-mailbox-internal folder)) t (elmo-imap4-session-select-mailbox session (elmo-imap4-folder-mailbox-internal folder) (quote force) (quote notify-bye)))))([elmo-imap4-folder [0 0 0 0 0 0 0] imap4 "%tst" "%" "/home/ante/.elmo/imap/mail.snowmen.se/andreasda/tst" nil nil nil t nil nil utf-8 "andreasda" clear "mail.snowmen.se" 993 nil "tst"])
  apply((lambda (folder) (let ((session (elmo-imap4-get-session folder))) (if (string= (elmo-imap4-session-current-mailbox-internal session) (elmo-imap4-folder-mailbox-internal folder)) t (elmo-imap4-session-select-mailbox session (elmo-imap4-folder-mailbox-internal folder) (quote force) (quote notify-bye))))) [elmo-imap4-folder [0 0 0 0 0 0 0] imap4 "%tst" "%" "/home/ante/.elmo/imap/mail.snowmen.se/andreasda/tst" nil nil nil t nil nil utf-8 "andreasda" clear "mail.snowmen.se" 993 nil "tst"])
  luna-send([elmo-imap4-folder [0 0 0 0 0 0 0] imap4 "%tst" "%" "/home/ante/.elmo/imap/mail.snowmen.se/andreasda/tst" nil nil nil t nil nil utf-8 "andreasda" clear "mail.snowmen.se" 993 nil "tst"] elmo-folder-exists-p-plugged [elmo-imap4-folder [0 0 0 0 0 0 0] imap4 "%tst" "%" "/home/ante/.elmo/imap/mail.snowmen.se/andreasda/tst" nil nil nil t nil nil utf-8 "andreasda" clear "mail.snowmen.se" 993 nil "tst"])
  (elmo-folder-send folder (quote elmo-folder-exists-p-plugged))
  (if (elmo-folder-plugged-p folder) (elmo-folder-send folder (quote elmo-folder-exists-p-plugged)) (file-directory-p (elmo-folder-msgdb-path folder)))
  (lambda (folder) (if (elmo-folder-plugged-p folder) (elmo-folder-send folder (quote elmo-folder-exists-p-plugged)) (file-directory-p (elmo-folder-msgdb-path folder))))([elmo-imap4-folder [0 0 0 0 0 0 0] imap4 "%tst" "%" "/home/ante/.elmo/imap/mail.snowmen.se/andreasda/tst" nil nil nil t nil nil utf-8 "andreasda" clear "mail.snowmen.se" 993 nil "tst"])
  apply((lambda (folder) (if (elmo-folder-plugged-p folder) (elmo-folder-send folder (quote elmo-folder-exists-p-plugged)) (file-directory-p (elmo-folder-msgdb-path folder)))) [elmo-imap4-folder [0 0 0 0 0 0 0] imap4 "%tst" "%" "/home/ante/.elmo/imap/mail.snowmen.se/andreasda/tst" nil nil nil t nil nil utf-8 "andreasda" clear "mail.snowmen.se" 993 nil "tst"])
  luna-call-next-method()
  luna-apply-generic([elmo-imap4-folder [0 0 0 0 0 0 0] imap4 "%tst" "%" "/home/ante/.elmo/imap/mail.snowmen.se/andreasda/tst" nil nil nil t nil nil utf-8 "andreasda" clear "mail.snowmen.se" 993 nil "tst"] elmo-folder-exists-p [elmo-imap4-folder [0 0 0 0 0 0 0] imap4 "%tst" "%" "/home/ante/.elmo/imap/mail.snowmen.se/andreasda/tst" nil nil nil t nil nil utf-8 "andreasda" clear "mail.snowmen.se" 993 nil "tst"])
  elmo-folder-exists-p([elmo-imap4-folder [0 0 0 0 0 0 0] imap4 "%tst" "%" "/home/ante/.elmo/imap/mail.snowmen.se/andreasda/tst" nil nil nil t nil nil utf-8 "andreasda" clear "mail.snowmen.se" 993 nil "tst"])
  (or (wl-folder-entity-exists-p (elmo-folder-name-internal folder)) (and (elmo-folder-msgdb-path folder) (file-exists-p (elmo-folder-msgdb-path folder))) (elmo-folder-exists-p folder))
  (if (or (wl-folder-entity-exists-p (elmo-folder-name-internal folder)) (and (elmo-folder-msgdb-path folder) (file-exists-p (elmo-folder-msgdb-path folder))) (elmo-folder-exists-p folder)) nil (wl-folder-create-subr folder))
  (unless (or (wl-folder-entity-exists-p (elmo-folder-name-internal folder)) (and (elmo-folder-msgdb-path folder) (file-exists-p (elmo-folder-msgdb-path folder))) (elmo-folder-exists-p folder)) (wl-folder-create-subr folder))
  (if force (unless (elmo-folder-exists-p folder) (wl-folder-create-subr folder)) (unless (or (wl-folder-entity-exists-p (elmo-folder-name-internal folder)) (and (elmo-folder-msgdb-path folder) (file-exists-p (elmo-folder-msgdb-path folder))) (elmo-folder-exists-p folder)) (wl-folder-create-subr folder)))
  wl-folder-confirm-existence([elmo-imap4-folder [0 0 0 0 0 0 0] imap4 "%tst" "%" "/home/ante/.elmo/imap/mail.snowmen.se/andreasda/tst" nil nil nil t nil nil utf-8 "andreasda" clear "mail.snowmen.se" 993 nil "tst"])
  (if ignore-error (condition-case nil (wl-folder-confirm-existence (wl-folder-get-elmo-folder fld)) (error)) (wl-folder-confirm-existence (wl-folder-get-elmo-folder fld)))
  (if no-create nil (if ignore-error (condition-case nil (wl-folder-confirm-existence (wl-folder-get-elmo-folder fld)) (error)) (wl-folder-confirm-existence (wl-folder-get-elmo-folder fld))))
  (unless no-create (if ignore-error (condition-case nil (wl-folder-confirm-existence (wl-folder-get-elmo-folder fld)) (error)) (wl-folder-confirm-existence (wl-folder-get-elmo-folder fld))))
  (let ((fld (completing-read (format "Folder name %s(%s): " (or purpose "") default) (quote wl-folder-complete-folder) nil nil (or init wl-default-spec) (quote wl-read-folder-history)))) (if (or (string= fld wl-default-spec) (string= fld "")) (setq fld default)) (setq fld (elmo-string (wl-folder-get-realname fld))) (if (string-match "\n" fld) (error "Not supported folder name: %s" fld)) (unless no-create (if ignore-error (condition-case nil (wl-folder-confirm-existence (wl-folder-get-elmo-folder fld)) (error)) (wl-folder-confirm-existence (wl-folder-get-elmo-folder fld)))) fld)
  wl-summary-read-folder("+inbox" "to add")
  (wl-fldmgr-read-string (wl-summary-read-folder wl-default-folder "to add"))
  (setq name (wl-fldmgr-read-string (wl-summary-read-folder wl-default-folder "to add")))
  (or name (setq name (wl-fldmgr-read-string (wl-summary-read-folder wl-default-folder "to add"))))
  (if (bobp) (message "Can't insert in the out of desktop group") (setq tmp (wl-fldmgr-get-path-from-buffer t)) (setq path (car tmp)) (setq indent (wl-fldmgr-make-indent (nth 1 tmp))) (or name (setq name (wl-fldmgr-read-string (wl-summary-read-folder wl-default-folder "to add")))) (elmo-folder-set-plugged (wl-folder-get-elmo-folder (if (listp name) (car name) name)) wl-plugged t) (when (setq diffs (wl-add-entity path (list name) wl-folder-entity (nth 3 tmp) t)) (wl-folder-insert-entity indent name) (wl-fldmgr-update-group path diffs) (setq wl-fldmgr-modified t) (set-buffer-modified-p nil) (setq ret-val t)))
  (let ((ret-val nil) (inhibit-read-only t) (wl-folder-complete-folder-candidate (if wl-fldmgr-add-complete-with-current-folder-list (function wl-fldmgr-add-completion-subr))) tmp indent path diffs) (if (bobp) (message "Can't insert in the out of desktop group") (setq tmp (wl-fldmgr-get-path-from-buffer t)) (setq path (car tmp)) (setq indent (wl-fldmgr-make-indent (nth 1 tmp))) (or name (setq name (wl-fldmgr-read-string (wl-summary-read-folder wl-default-folder "to add")))) (elmo-folder-set-plugged (wl-folder-get-elmo-folder (if (listp name) (car name) name)) wl-plugged t) (when (setq diffs (wl-add-entity path (list name) wl-folder-entity (nth 3 tmp) t)) (wl-folder-insert-entity indent name) (wl-fldmgr-update-group path diffs) (setq wl-fldmgr-modified t) (set-buffer-modified-p nil) (setq ret-val t))) ret-val)
  (save-excursion (beginning-of-line) (let ((ret-val nil) (inhibit-read-only t) (wl-folder-complete-folder-candidate (if wl-fldmgr-add-complete-with-current-folder-list (function wl-fldmgr-add-completion-subr))) tmp indent path diffs) (if (bobp) (message "Can't insert in the out of desktop group") (setq tmp (wl-fldmgr-get-path-from-buffer t)) (setq path (car tmp)) (setq indent (wl-fldmgr-make-indent (nth 1 tmp))) (or name (setq name (wl-fldmgr-read-string (wl-summary-read-folder wl-default-folder "to add")))) (elmo-folder-set-plugged (wl-folder-get-elmo-folder (if (listp name) (car name) name)) wl-plugged t) (when (setq diffs (wl-add-entity path (list name) wl-folder-entity (nth 3 tmp) t)) (wl-folder-insert-entity indent name) (wl-fldmgr-update-group path diffs) (setq wl-fldmgr-modified t) (set-buffer-modified-p nil) (setq ret-val t))) ret-val))
  wl-fldmgr-add()
  call-interactively(wl-fldmgr-add nil nil)