Mercurial > hg > xemacs-beta

comparison lisp/rmail/rmail.el @ 4:b82b59fe008d r19-15b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b3
author cvs
date Mon, 13 Aug 2007 08:46:56 +0200
parents ac2d302a0011
children ee648375d8d6
comparison
equal deleted inserted replaced
3:30df88044ec6 4:b82b59fe008d
1 ;;; rmail.el --- main code of "RMAIL" mail reader for Emacs. 1 ;;; rmail.el --- main code of "RMAIL" mail reader for Emacs.
2 2
3 ;; Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994 3 ;; Copyright (C) 1985,86,87,88,93,94,95,96 Free Software Foundation, Inc.
4 ;;; Free Software Foundation, Inc.
5 4
6 ;; Maintainer: FSF 5 ;; Maintainer: FSF
7 ;; Keywords: mail 6 ;; Keywords: mail
8 7
9 ;; This file is part of XEmacs. 8 ;; This file is part of XEmacs.
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
19 ;; General Public License for more details. 18 ;; General Public License for more details.
20 19
21 ;; You should have received a copy of the GNU General Public License 20 ;; You should have received a copy of the GNU General Public License
22 ;; along with XEmacs; see the file COPYING. If not, write to the Free 21 ;; along with XEmacs; see the file COPYING. If not, write to the Free
23 ;; Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 22 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
23 ;; 02111-1307, USA.
24 24
25 ;;; Code: 25 ;;; Code:
26 26
27 ;; Souped up by shane@mit-ajax based on ideas of rlk@athena.mit.edu 27 ;; Souped up by shane@mit-ajax based on ideas of rlk@athena.mit.edu
28 ;; New features include attribute and keyword support, message 28 ;; New features include attribute and keyword support, message
52 ;delivering new mail. It's name should end with a slash.") 52 ;delivering new mail. It's name should end with a slash.")
53 ;(defvar rmail-file-name 53 ;(defvar rmail-file-name
54 ; (expand-file-name "~/RMAIL") 54 ; (expand-file-name "~/RMAIL")
55 ; "") 55 ; "")
56 56
57 (defvar rmail-movemail-program nil
58 "If non-nil, name of program for fetching new mail.")
59
60 (defvar rmail-pop-password nil
61 "*Password to use when reading mail from a POP server, if required.")
62
63 (defvar rmail-pop-password-required nil
64 "*Non-nil if a password is required when reading mail using POP.")
65
57 ;;;###autoload 66 ;;;###autoload
58 (defvar rmail-dont-reply-to-names nil "\ 67 (defvar rmail-dont-reply-to-names nil "\
59 *A regexp specifying names to prune of reply to messages. 68 *A regexp specifying names to prune of reply to messages.
60 A value of nil means exclude your own name only.") 69 A value of nil means exclude your own name only.")
61 70
68 It is useful to set this variable in the site customization file.") 77 It is useful to set this variable in the site customization file.")
69 78
70 ;;; XEmacs change: moved rmail-ignored-headers to sendmail.el for the 79 ;;; XEmacs change: moved rmail-ignored-headers to sendmail.el for the
71 ;;; benefit of automatically generated autoloads. 80 ;;; benefit of automatically generated autoloads.
72 ;;;minimalist FSF version 81 ;;;minimalist FSF version
73 ;(defvar rmail-ignored-headers "^via:\\|^mail-from:\\|^origin:\\|^status:\\|^received:\\|^message-id:\\|^summary-line:" "\ 82 ;(defvar rmail-ignored-headers "^via:\\|^mail-from:\\|^origin:\\|^status:\\|^received:\\|^x400-originator:\\|^x400-recipients:\\|^x400-received:\\|^x400-mts-identifier:\\|^x400-content-type:\\|^\\(resent-\\|\\)message-id:\\|^summary-line:\\|^resent-date:\\|^nntp-posting-host:"
74 ;*Gubbish headers one would rather not see.") 83 ;*Gubbish headers one would rather not see.")
84
85 ;;;###autoload
86 (defvar rmail-displayed-headers nil
87 "*Regexp to match Header fields that Rmail should display.
88 If nil, display all header fields except those matched by
89 `rmail-ignored-headers'.")
90
91 ;;;###autoload
92 (defvar rmail-retry-ignored-headers nil "\
93 *Headers that should be stripped when retrying a failed message.")
94
95 ;;;###autoload
96 (defvar rmail-highlighted-headers "^From:\\|^Subject:" "\
97 *Regexp to match Header fields that Rmail should normally highlight.
98 A value of nil means don't highlight.
99 See also `rmail-highlight-face'.")
100
101 ;;;###autoload
102 (defvar rmail-highlight-face nil "\
103 *Face used by Rmail for highlighting headers.")
75 104
76 ;;;###autoload 105 ;;;###autoload
77 (defvar rmail-delete-after-output nil "\ 106 (defvar rmail-delete-after-output nil "\
78 *Non-nil means automatically delete a message that is copied to a file.") 107 *Non-nil means automatically delete a message that is copied to a file.")
79 108