# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 891900323 0
# Node ID 57c8bfa789b6700cbd739c4dc35ec140eda7af62
# Parent  19ed30856b500b33283cf5fd14d77e5e4b83bbba
(rmail-movemail-flags): New customizable variable
to specify additional flags to pass to movemail.
(rmail-insert-inbox-text): Use rmail-movemail-flags.

diff -r 19ed30856b50 -r 57c8bfa789b6 lisp/mail/rmail.el
--- 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)