Commit 236ab005 authored by Glenn Morris's avatar Glenn Morris
Browse files

(rmail-ignored-headers, rmail-displayed-headers)

(rmail-retry-ignored-headers, rmail-highlighted-headers):
Restore autoloads.
parent ec712abb
2009-02-02 Glenn Morris <rgm@gnu.org>
* mail/rmail.el (rmail-ignored-headers, rmail-displayed-headers)
(rmail-retry-ignored-headers, rmail-highlighted-headers):
Restore autoloads.
2009-02-02 Stefan Monnier <monnier@iro.umontreal.ca> 2009-02-02 Stefan Monnier <monnier@iro.umontreal.ca>
   
* emacs-lisp/bytecomp.el (emacs-lisp-file-regexp): Fix up EOB. * emacs-lisp/bytecomp.el (emacs-lisp-file-regexp): Fix up EOB.
......
...@@ -315,6 +315,7 @@ variable `rmail-dont-reply-to-names', for when the user does not set ...@@ -315,6 +315,7 @@ variable `rmail-dont-reply-to-names', for when the user does not set
value is the user's email address and name.) value is the user's email address and name.)
It is useful to set this variable in the site customization file.") It is useful to set this variable in the site customization file.")
;;;###autoload
(defcustom rmail-ignored-headers (defcustom rmail-ignored-headers
(concat "^via:\\|^mail-from:\\|^origin:\\|^references:\\|^sender:" (concat "^via:\\|^mail-from:\\|^origin:\\|^references:\\|^sender:"
"\\|^status:\\|^received:\\|^x400-originator:\\|^x400-recipients:" "\\|^status:\\|^received:\\|^x400-originator:\\|^x400-recipients:"
...@@ -359,6 +360,7 @@ go to that message and type \\[rmail-toggle-header] twice." ...@@ -359,6 +360,7 @@ go to that message and type \\[rmail-toggle-header] twice."
:type '(choice (const nil) (regexp)) :type '(choice (const nil) (regexp))
:group 'rmail-headers) :group 'rmail-headers)
;;;###autoload
(defcustom rmail-displayed-headers nil (defcustom rmail-displayed-headers nil
"Regexp to match Header fields that Rmail should display. "Regexp to match Header fields that Rmail should display.
If nil, display all header fields except those matched by If nil, display all header fields except those matched by
...@@ -366,11 +368,13 @@ If nil, display all header fields except those matched by ...@@ -366,11 +368,13 @@ If nil, display all header fields except those matched by
:type '(choice regexp (const :tag "All")) :type '(choice regexp (const :tag "All"))
:group 'rmail-headers) :group 'rmail-headers)
;;;###autoload
(defcustom rmail-retry-ignored-headers "^x-authentication-warning:" (defcustom rmail-retry-ignored-headers "^x-authentication-warning:"
"Headers that should be stripped when retrying a failed message." "Headers that should be stripped when retrying a failed message."
:type '(choice regexp (const nil :tag "None")) :type '(choice regexp (const nil :tag "None"))
:group 'rmail-headers) :group 'rmail-headers)
;;;###autoload
(defcustom rmail-highlighted-headers "^From:\\|^Subject:" (defcustom rmail-highlighted-headers "^From:\\|^Subject:"
"Regexp to match Header fields that Rmail should normally highlight. "Regexp to match Header fields that Rmail should normally highlight.
A value of nil means don't highlight." A value of nil means don't highlight."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment