comparison lisp/mail/rmail.el @ 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.

88255:6b913c966ca8

(eval-and-compile
  (require 'rmaildesc)
  (require 'rmailhdr)
  (require 'rmailkwd))

(defvar deleted-head)
(defvar font-lock-fontified)
(defvar mail-abbrev-syntax-table)
(defvar mail-abbrevs)

	(throw 'found t)))))


;;;; *** Rmail Message Selection And Support ***

;; mbox: deprecated. -pmr
(defun rmail-msgend (n)
  (rmail-desc-get-start n))

;; mbox: deprecated. -pmr
(defun rmail-msgbeg (n)
  (rmail-desc-get-end n))

(defun rmail-widen-to-current-msgbeg (function)
  "Call FUNCTION with point at start of internal data of current message.
Assumes that bounds were previously narrowed to display the message in Rmail.
The bounds are widened enough to move point where desired, then narrowed

                                     keywords
				     date
                                     (count-lines start end)
				     (cadr (mail-extract-address-components
					    (rmail-header-get-header "from")))
                                     (rmail-header-get-header "subject")))
			 message-descriptor-list)))))
    ;; Add the new message data lists to the Rmail message descriptor
    ;; vector.
    (rmail-desc-add-descriptors message-descriptor-list)
    ;; Unless requested otherwise, show the number of new messages.

		     (symbol-name last-coding-system-used))
		    (rmail-show-message rmail-current-message))
		(error "No X-Coding-System header found")))
	  (rmail-header-hide-headers))))))

;; Find all occurrences of certain fields, and highlight them.
(defun rmail-highlight-headers ()
  ;; Do this only if the system supports faces.
  (if (and (fboundp 'internal-find-face)
	   rmail-highlighted-headers)
      (save-excursion
	(search-forward "\n\n" nil 'move)

88256:db2e6586ecf5

(eval-and-compile
  (require 'rmaildesc)
  (require 'rmailhdr)
  (require 'rmailkwd))

(require 'mail-parse)

(defvar deleted-head)
(defvar font-lock-fontified)
(defvar mail-abbrev-syntax-table)
(defvar mail-abbrevs)

	(throw 'found t)))))


;;;; *** Rmail Message Selection And Support ***

(defun rmail-msgbeg (n)
  (rmail-desc-get-start n))
(make-obsolete 'rmail-msgbeg 'rmail-desc-get-start "22.0")

(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.
Assumes that bounds were previously narrowed to display the message in Rmail.
The bounds are widened enough to move point where desired, then narrowed

                                     keywords
				     date
                                     (count-lines start end)
				     (cadr (mail-extract-address-components
					    (rmail-header-get-header "from")))
				     (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.
    (rmail-desc-add-descriptors message-descriptor-list)
    ;; Unless requested otherwise, show the number of new messages.

		     (symbol-name last-coding-system-used))
		    (rmail-show-message rmail-current-message))
		(error "No X-Coding-System header found")))
	  (rmail-header-hide-headers))))))

(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)
      (save-excursion
	(search-forward "\n\n" nil 'move)