(rmail-movemail-flags): New customizable variable

to specify additional flags to pass to movemail.
(rmail-insert-inbox-text): Use rmail-movemail-flags.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 1381ec2560b4cf2e190a7787fd0d8720aad8eb1d..fb07ac9bcf37eec6fdc309ac39e6eefda8e0626b 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -102,6 +102,13 @@
   :type 'boolean
   :group 'rmail-retrieve)
 
+(defcustom rmail-movemail-flags nil
+  "*List of flags to pass to movemail.  Most commonly used to specify
+`-g' to enable GSS-API authentication or `-k' to enable Kerberos
+authentication."
+  :type 'list
+  :group 'rmail-retrieve)
+
 (defvar rmail-pop-password-error "invalid usercode or password"
   "Regular expression matching incorrect-password POP server error messages.
 If you get an incorrect-password error that this expression does not match,
@@ -1316,6 +1323,7 @@ It returns t if it got any new messages."
                             (if rmail-preserve-inbox 
                                 (list "-p")
                               nil)
+                            rmail-movemail-flags
                             (list file tofile)
                             (if rmail-pop-password 
                                 (list rmail-pop-password)