2001-01-24 Simon Josefsson <sj@extundo.com>

	* mail-source.el (mail-sources): Add :program specifier to IMAP
	mail source.
	(mail-source-fetch-imap): Map :program to `imap-shell-program'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0976332..9e492f2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-01-24  Simon Josefsson  <sj@extundo.com>
+
+       * mail-source.el (mail-sources): Add :program specifier to IMAP
+       mail source.
+       (mail-source-fetch-imap): Map :program to `imap-shell-program'.
+
 2001-01-24 08:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-score.el (gnus-score-lower-thread): Fix a doc typo.

diff --git a/lisp/mail-source.el b/lisp/mail-source.el
index e2a9544..f6c5669 100644 (file)
--- a/lisp/mail-source.el
+++ b/lisp/mail-source.el
@@ -160,6 +160,9 @@ See Info node `(gnus)Mail Source Specifiers'."
                                          (choice :tag "Stream"
                                                  :value network
                                                  ,@mail-source-imap-streams))
+                                  (group :inline t
+                                         (const :format "" :value :program)
+                                         (string :tag "Program"))
                                   (group :inline t
                                          (const :format ""
                                                 :value :authenticator)
@@ -299,6 +302,7 @@ Common keywords should be listed here.")
        (:server (getenv "MAILHOST"))
        (:port)
        (:stream)
+       (:program)
        (:authentication)
        (:user (or (user-login-name) (getenv "LOGNAME") (getenv "USER")))
        (:password)
@@ -864,6 +868,7 @@ This only works when `display-time' is enabled."
          (found 0)
          (buf (get-buffer-create (generate-new-buffer-name " *imap source*")))
          (mail-source-string (format "imap:%s:%s" server mailbox))
+         (imap-shell-program (or (list program) imap-shell-program))
          remove)
       (if (and (imap-open server port stream authentication buf)
               (imap-authenticate