gnus patch to support movemail enhancements

Gnus v5.6.43 XEmacs 21.0 "Pyrenean-pre2" [Lucid] (i586-pc-cygwin32) of Mon Oct 12 1998 on ARMAGEDON 200 red.parallax.co.uk NNTPcache server V1.0.7.1 Oct 31 1997 ready (posting ok). I would appreciate it if this patch could be applied to gnus. It simply allows extra arguments to be given to movemail. I use it to selectively download mail using pop. The enhanced movemail should appear in an XEmacs of the future (21.2?). The patch is harmless without it. cheers, andy diff -c /usr/gnu/lib/xemacs/packages/lisp/gnus/nnmail.el~ /usr/gnu/lib/xemacs/packages/lisp/gnus/nnmail.el *** /usr/gnu/lib/xemacs/packages/lisp/gnus/nnmail.el~ Mon Oct 05 16:24:37 1998 --- /usr/gnu/lib/xemacs/packages/lisp/gnus/nnmail.el Mon Oct 05 16:24:37 1998 *************** *** 243,248 **** --- 243,255 ---- :group 'nnmail-retrieve :type 'string) + (defcustom nnmail-movemail-args nil + "*Extra arguments to give to `nnmail-movemail-program' to move mail from the inbox. + The default is nil" + :group 'nnmail-files + :group 'nnmail-retrieve + :type 'string) + (defcustom nnmail-pop-password-required nil "*Non-nil if a password is required when reading mail using POP." :group 'nnmail-retrieve *************** *** 641,647 **** nnmail-movemail-program exec-directory) nil errors nil inbox tofile) (when nnmail-internal-password ! (list nnmail-internal-password))))))) (push inbox nnmail-moved-inboxes) (if (and (not (buffer-modified-p errors)) (zerop result)) --- 648,656 ---- nnmail-movemail-program exec-directory) nil errors nil inbox tofile) (when nnmail-internal-password ! (list nnmail-internal-password)) ! (when nnmail-movemail-args ! nnmail-movemail-args)))))) (push inbox nnmail-moved-inboxes) (if (and (not (buffer-modified-p errors)) (zerop result)) ------------------ Environment follows ------------------ (setq gnus-nntp-server "news") (setq gnus-secondary-select-methods '((nnfolder "private" (nnfolder-directory "~/mail/")))) (setq gnus-local-domain "parallax.co.uk") (setq gnus-local-organization "Parallax Solutions Ltd., Coventry, England.") (setq gnus-load-hook '(tm-setup/load-gnus)) (setq gnus-show-mime t) (setq gnus-summary-mode-hook '(gnus-xmas-switch-horizontal-scrollbar-off gnus-xmas-setup-summary-toolbar gnus-xmas-summary-menu-add mc-install-read-mode)) (setq gnus-parse-headers-hook '(gnus-set-summary-default-charset gnus-decode-rfc1522)) (setq gnus-group-mode-hook '(gnus-xmas-setup-group-toolbar gnus-xmas-group-menu-add)) (setq gnus-exit-gnus-hook '(#<compiled-function nil "...(18)" [frame-live-p toolbar-news-frame frame-list delete-frame nil] 2>)) (setq gnus-article-x-face-command 'gnus-xmas-article-display-xface) (setq gnus-show-mime-method 'gnus-article-preview-mime-message) (setq gnus-decode-encoded-word-method 'gnus-article-decode-encoded-word) (setq gnus-article-mode-hook '(gnus-xmas-article-menu-add turn-off-scroll-in-place)) (setq gnus-read-active-file nil) (setq gnus-save-killed-list nil) (setq gnus-startup-hook '(tm-gnus/bbdb-setup)) (setq gnus-asynchronous nil) ;; (makeunbound 'gnus-topic-mode) (setq gnus-topic-mode-hook '(gnus-xmas-topic-menu-add)) ;; (makeunbound 'gnus-topic-line-format) ;; (makeunbound 'gnus-topic-indent-level) ;; (makeunbound 'gnus-topic-display-empty-topics) (setq nnmail-split-methods '(("list.xemacs-beta" "^..:.*xemacs-beta") ("list.xemacs-patches" "^..:.*xemacs-patches") ("list.xemacs-nt" "^..:.*xemacs-nt") ("list.ejb-interest" "^..:.*\\(EJB-\\|ejb-\\)") ("other" ""))) (setq nnmail-spool-file "po:andyp") (setq nnmail-movemail-args '("-x" "-r" "^..:.*\\(xemacs-\\|EJB-\\|ejb-\\)")) (setq nnmail-tmp-directory "~/mail/") (setq message-user-organization t) (setq message-forward-start-separator "