From: Karl Heuer <kwzh@gnu.org>
Date: Mon, 6 Apr 1998 22:05:23 +0000 (+0000)
Subject: (rmail-movemail-flags): New customizable variable
X-Git-Tag: emacs-20.3~1679
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=757c23325145807e24689595555286c8f2089174;p=emacs.git

(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 1381ec2560b..fb07ac9bcf3 100644
--- 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)