Mercurial > emacs
changeset 88256:db2e6586ecf5
(rmail-msgbeg, rmail-msgend): Fix and make obsolete.
(rmail-process-new-messages): Use mail-decode-encoded-word-string
on the subject. Requires mail-parse from Gnus.
(rmail-highlight-headers): Doc.
| author | Alex Schroeder <alex@gnu.org> |
|---|---|
| date | Sat, 21 Jan 2006 15:00:38 +0000 |
| parents | 6b913c966ca8 |
| children | b6d2078cce14 |
| files | lisp/mail/rmail.el |
| diffstat | 1 files changed, 12 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmail.el Sat Jan 21 10:52:39 2006 +0000 +++ b/lisp/mail/rmail.el Sat Jan 21 15:00:38 2006 +0000 @@ -49,6 +49,8 @@ (require 'rmailhdr) (require 'rmailkwd)) +(require 'mail-parse) + (defvar deleted-head) (defvar font-lock-fontified) (defvar mail-abbrev-syntax-table) @@ -1846,13 +1848,13 @@ ;;;; *** Rmail Message Selection And Support *** -;; mbox: deprecated. -pmr -(defun rmail-msgend (n) +(defun rmail-msgbeg (n) (rmail-desc-get-start n)) +(make-obsolete 'rmail-msgbeg 'rmail-desc-get-start "22.0") -;; mbox: deprecated. -pmr -(defun rmail-msgbeg (n) +(defun rmail-msgend (n) (rmail-desc-get-end n)) +(make-obsolete 'rmail-msgend 'rmail-desc-get-end "22.0") (defun rmail-widen-to-current-msgbeg (function) "Call FUNCTION with point at start of internal data of current message. @@ -1984,7 +1986,8 @@ (count-lines start end) (cadr (mail-extract-address-components (rmail-header-get-header "from"))) - (rmail-header-get-header "subject"))) + (mail-decode-encoded-word-string + (rmail-header-get-header "subject")))) message-descriptor-list))))) ;; Add the new message data lists to the Rmail message descriptor ;; vector. @@ -2180,8 +2183,11 @@ (error "No X-Coding-System header found"))) (rmail-header-hide-headers)))))) -;; Find all occurrences of certain fields, and highlight them. (defun rmail-highlight-headers () + "Find all occurrences of certain fields, and highlight them. +The fields highlighted are determined by `rmail-highlighted-headers'. +The face used is stored in the variable `rmail-highlight-face' and +defaults to the face `rmail-highlight-face'." ;; Do this only if the system supports faces. (if (and (fboundp 'internal-find-face) rmail-highlighted-headers)