changeset 21395:57c8bfa789b6

(rmail-movemail-flags): New customizable variable to specify additional flags to pass to movemail. (rmail-insert-inbox-text): Use rmail-movemail-flags.
author Karl Heuer <kwzh@gnu.org>
date Mon, 06 Apr 1998 22:05:23 +0000
parents 19ed30856b50
children fe54b9d8ded1
files lisp/mail/rmail.el
diffstat 1 files changed, 8 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmail.el	Mon Apr 06 21:55:01 1998 +0000
+++ b/lisp/mail/rmail.el	Mon Apr 06 22:05:23 1998 +0000
@@ -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 @@
 			     (if rmail-preserve-inbox 
 				 (list "-p")
 			       nil)
+			     rmail-movemail-flags
 			     (list file tofile)
 			     (if rmail-pop-password 
 				 (list rmail-pop-password)