* message.el (message-setup-1): Don't call

[elisp/gnus.git-] / lisp / read-passwd.el

diff --git a/lisp/read-passwd.el b/lisp/read-passwd.el
index 6f3c712..4542604 100644 (file)
--- a/lisp/read-passwd.el
+++ b/lisp/read-passwd.el
@@ -64,7 +64,7 @@ Argument PROMPT ."
              (1+ (- (length msg) (window-width (minibuffer-window)))))
        (and (> truncate 0)
             (setq msg (concat "$" (substring msg (1+ truncate))))))
-      (message msg)
+      (message "%s" msg)
       (setq c (read-pw-read-char-exclusive))
       (cond ((eq ?\C-g c)
             (setq quit-flag t
@@ -90,17 +90,18 @@ Argument PROMPT ."
   (if (not mail-source-password-cache)
       (car (mapcar
            (lambda (x)
-             (mail-source-bind (pop x)
-               (let ((from (format "%s:%s:%s" server user port))
-                     (mail-source-string
-                      (format "pop:%s@%s" user server)))
-                 (setq pw (read-pw-return-passwd-string user server))
-                 (unless (assoc user mail-source-password-cache)
-                   (set-alist 'mail-source-password-cache
-                              (format "%s:%s:%s" server user port)
-                              pw))
-                 (cdr (assoc from mail-source-password-cache)))))
-           nnmail-spool-file))))
+             (when (eq 'pop (car x))
+               (mail-source-bind (pop x)
+                 (let ((from (format "%s:%s:%s" server user port))
+                       (mail-source-string
+                        (format "pop:%s@%s" user server)))
+                   (setq pw (read-pw-return-passwd-string user server))
+                   (unless (assoc user mail-source-password-cache)
+                     (set-alist 'mail-source-password-cache
+                                (format "%s:%s:%s" server user port)
+                                pw))
+                   (cdr (assoc from mail-source-password-cache))))))
+           mail-sources))))
 ;;
 ;;
 (defvar passwd nil)
@@ -109,4 +110,4 @@ Argument PROMPT ."
                (message "POP Password for %s at %s : " user server)))
   passwd)
 ;;
-;; read-passwd.el ends here.
\ No newline at end of file
+;; read-passwd.el ends here.