/[emacs]/emacs/lisp/mail/rmail.el
ViewVC logotype

Diff of /emacs/lisp/mail/rmail.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.360 by rms, Sun May 19 15:36:55 2002 UTC revision 1.360.2.1 by miles, Fri Apr 4 06:20:27 2003 UTC
# Line 161  It is useful to set this variable in the Line 161  It is useful to set this variable in the
161            "\\|^list-id:\\|^list-unsubscribe:\\|^list-archive:"            "\\|^list-id:\\|^list-unsubscribe:\\|^list-archive:"
162            "\\|^content-type:\\|^content-length:"            "\\|^content-type:\\|^content-length:"
163            "\\|^x-attribution:\\|^x-disclaimer:\\|^x-trace:"            "\\|^x-attribution:\\|^x-disclaimer:\\|^x-trace:"
164            "\\|^x-complaints-to:\\|^nntp-posting-date:\\|^user-agent:")            "\\|^x-complaints-to:\\|^nntp-posting-date:\\|^user-agent"
165              "\\|^importance:\\|^envelope-to:\\|^delivery-date"
166              "\\|^x.*-priority:\\|^x-mimeole:")
167    "*Regexp to match header fields that Rmail should normally hide.    "*Regexp to match header fields that Rmail should normally hide.
168  This variable is used for reformatting the message header,  This variable is used for reformatting the message header,
169  which normally happens once for each message,  which normally happens once for each message,
# Line 279  still the current message in the Rmail b Line 281  still the current message in the Rmail b
281  ;;  files).  ;;  files).
282    
283  (defvar rmail-mmdf-delim1 "^\001\001\001\001\n"  (defvar rmail-mmdf-delim1 "^\001\001\001\001\n"
284    "Regexp marking the start of an mmdf message")    "Regexp marking the start of an mmdf message.")
285  (defvar rmail-mmdf-delim2 "^\001\001\001\001\n"  (defvar rmail-mmdf-delim2 "^\001\001\001\001\n"
286    "Regexp marking the end of an mmdf message")    "Regexp marking the end of an mmdf message.")
287    
288  (defcustom rmail-message-filter nil  (defcustom rmail-message-filter nil
289    "If non-nil, a filter function for new messages in RMAIL.    "If non-nil, a filter function for new messages in RMAIL.
# Line 457  MSG is the message number, REGEXP is the Line 459  MSG is the message number, REGEXP is the
459  (defvar rmail-search-mime-header-function nil  (defvar rmail-search-mime-header-function nil
460    "Function to check if a regexp matches a header of MIME message.    "Function to check if a regexp matches a header of MIME message.
461  This function is called if `rmail-enable-mime' is non-nil.  This function is called if `rmail-enable-mime' is non-nil.
462  It is called with four arguments MSG, REGEXP, and LIMIT, where  It is called with three arguments MSG, REGEXP, and LIMIT, where
463  MSG is the message number,  MSG is the message number,
464  REGEXP is the regular expression,  REGEXP is the regular expression,
465  LIMIT is the position specifying the end of header.")  LIMIT is the position specifying the end of header.")
# Line 542  The first parenthesized expression shoul Line 544  The first parenthesized expression shoul
544    nil)    nil)
545    
546  (defvar rmail-font-lock-keywords  (defvar rmail-font-lock-keywords
547      ;; These are all matched case-insensitively.
548    (eval-when-compile    (eval-when-compile
549      (let* ((cite-chars "[>|}]")      (let* ((cite-chars "[>|}]")
550             (cite-prefix "A-Za-z")             (cite-prefix "a-z")
551             (cite-suffix (concat cite-prefix "0-9_.@-`'\"")))             (cite-suffix (concat cite-prefix "0-9_.@-`'\"")))
552        (list '("^\\(From\\|Sender\\|Resent-[Ff]rom\\):" . font-lock-function-name-face)        (list '("^\\(From\\|Sender\\|Resent-From\\):"
553                  . font-lock-function-name-face)
554              '("^Reply-To:.*$" . font-lock-function-name-face)              '("^Reply-To:.*$" . font-lock-function-name-face)
555              '("^Subject:" . font-lock-comment-face)              '("^Subject:" . font-lock-comment-face)
556              '("^\\(To\\|Apparently-To\\|Cc\\|Newsgroups\\):"              '("^\\(To\\|Apparently-To\\|Cc\\|Newsgroups\\):"
# Line 560  The first parenthesized expression shoul Line 564  The first parenthesized expression shoul
564                 (beginning-of-line) (end-of-line)                 (beginning-of-line) (end-of-line)
565                 (2 font-lock-constant-face nil t)                 (2 font-lock-constant-face nil t)
566                 (4 font-lock-comment-face nil t)))                 (4 font-lock-comment-face nil t)))
567              '("^\\(X-[A-Za-z0-9-]+\\|In-reply-to\\|Date\\):.*$"              '("^\\(X-[a-z0-9-]+\\|In-reply-to\\|Date\\):.*\\(\n[ \t]+.*\\)*$"
568                . font-lock-string-face))))                . font-lock-string-face))))
569    "Additional expressions to highlight in Rmail mode.")    "Additional expressions to highlight in Rmail mode.")
570    
# Line 763  Note:   This is the header of an rmail f Line 767  Note:   This is the header of an rmail f
767  Note:   If you are seeing it in rmail,  Note:   If you are seeing it in rmail,
768  Note:    it means the file has no messages in it.\n\^_")))  Note:    it means the file has no messages in it.\n\^_")))
769    
770  ;; Decode Babyl formated part at the head of current buffer by  ;; Decode Babyl formatted part at the head of current buffer by
771  ;; rmail-file-coding-system, or if it is nil, do auto conversion.  ;; rmail-file-coding-system, or if it is nil, do auto conversion.
772    
773  (defun rmail-decode-babyl-format ()  (defun rmail-decode-babyl-format ()
# Line 1121  Instead, these commands are available: Line 1125  Instead, these commands are available:
1125    (make-local-variable 'font-lock-defaults)    (make-local-variable 'font-lock-defaults)
1126    (setq font-lock-defaults    (setq font-lock-defaults
1127          '(rmail-font-lock-keywords          '(rmail-font-lock-keywords
1128            t nil nil nil            t t nil nil
1129            (font-lock-maximum-size . nil)            (font-lock-maximum-size . nil)
1130            (font-lock-fontify-buffer-function . rmail-fontify-buffer-function)            (font-lock-fontify-buffer-function . rmail-fontify-buffer-function)
1131            (font-lock-unfontify-buffer-function . rmail-unfontify-buffer-function)            (font-lock-unfontify-buffer-function . rmail-unfontify-buffer-function)
# Line 1503  It returns t if it got any new messages. Line 1507  It returns t if it got any new messages.
1507               (if rmail-pop-password-required               (if rmail-pop-password-required
1508                   (progn (setq got-password (not (rmail-have-password)))                   (progn (setq got-password (not (rmail-have-password)))
1509                          (setq password (rmail-get-pop-password))))                          (setq password (rmail-get-pop-password))))
1510               (if (eq system-type 'windows-nt)               (if (memq system-type '(windows-nt cygwin))
1511                   ;; cannot have "po:" in file name                   ;; cannot have "po:" in file name
1512                   (setq tofile                   (setq tofile
1513                         (expand-file-name                         (expand-file-name
# Line 1740  It returns t if it got any new messages. Line 1744  It returns t if it got any new messages.
1744                            (goto-char (+ header-end size))                            (goto-char (+ header-end size))
1745                          (message "Ignoring invalid Content-Length field")                          (message "Ignoring invalid Content-Length field")
1746                          (sit-for 1 0 t)))                          (sit-for 1 0 t)))
1747                   (if (re-search-forward                   (if (let ((case-fold-search nil))
1748                        (concat "^[\^_]?\\("                         (re-search-forward
1749                                rmail-unix-mail-delimiter                          (concat "^[\^_]?\\("
1750                                "\\|"                                  rmail-unix-mail-delimiter
1751                                rmail-mmdf-delim1 "\\|"                                  "\\|"
1752                                "^BABYL OPTIONS:\\|"                                  rmail-mmdf-delim1 "\\|"
1753                                "\^L\n[01],\\)") nil t)                                  "^BABYL OPTIONS:\\|"
1754                                    "\^L\n[01],\\)") nil t))
1755                       (goto-char (match-beginning 1))                       (goto-char (match-beginning 1))
1756                     (goto-char (point-max)))                     (goto-char (point-max)))
1757                   (setq count (1+ count))                   (setq count (1+ count))
# Line 2395  If summary buffer is currently displayed Line 2400  If summary buffer is currently displayed
2400                          (progn                          (progn
2401                            (check-coding-system coding-system)                            (check-coding-system coding-system)
2402                            (setq buffer-file-coding-system coding-system))                            (setq buffer-file-coding-system coding-system))
2403                        (error                        (error
2404                         (setq buffer-file-coding-system nil))))                         (setq buffer-file-coding-system nil))))
2405                  (setq buffer-file-coding-system nil)))))                  (setq buffer-file-coding-system nil)))))
2406          ;; Clear the "unseen" attribute when we show a message.          ;; Clear the "unseen" attribute when we show a message.
# Line 3144  use \\[mail-yank-original] to yank the o Line 3149  use \\[mail-yank-original] to yank the o
3149       ;; since they can handle the names unstripped.       ;; since they can handle the names unstripped.
3150       ;; I don't know whether there are other mailers that still       ;; I don't know whether there are other mailers that still
3151       ;; need the names to be stripped.       ;; need the names to be stripped.
3152       (mail-strip-quoted-names reply-to)  ;;;     (mail-strip-quoted-names reply-to)
3153         reply-to
3154       subject       subject
3155       (rmail-make-in-reply-to-field from date message-id)       (rmail-make-in-reply-to-field from date message-id)
3156       (if just-sender       (if just-sender
# Line 3597  This has an effect only if a summary buf Line 3603  This has an effect only if a summary buf
3603  (eval-when-compile (require 'speedbar))  (eval-when-compile (require 'speedbar))
3604    
3605  (defvar rmail-speedbar-match-folder-regexp "^[A-Z0-9]+\\(\\.[A-Z0-9]+\\)?$"  (defvar rmail-speedbar-match-folder-regexp "^[A-Z0-9]+\\(\\.[A-Z0-9]+\\)?$"
3606    "*This regex us used to match folder names to be displayed in speedbar.    "*This regex is used to match folder names to be displayed in speedbar.
3607  Enabling this will permit speedbar to display your folders for easy  Enabling this will permit speedbar to display your folders for easy
3608  browsing, and moving of messages.")  browsing, and moving of messages.")
3609    

Legend:
Removed from v.1.360  
changed lines
  Added in v.1.360.2.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26