mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

(rmail-digest-end-regexps): Variable replaces rmail-digest-end-regexp.

Browse Source 
Allows multiple regexps for detecting the end line.
(undigestify-rmail-message): Corresponding changes.
This commit is contained in:
Richard M. Stallman 2000-01-21 02:04:16 +00:00
parent 757081353d
commit 5ea4b65bfe
1 changed files with 21 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
lisp/mail/undigest.el
View File

@ -30,12 +30,15 @@
(require 'rmail)
(defcustom rmail-digest-end-regexp (concat "End of.*Digest.*\n"
(regexp-quote "*********") "*"
"\\(\n------*\\)*")
"*Regexp matching the end of a digest message."
(defcustom rmail-digest-end-regexps
(list (concat "End of.*Digest.*\n"
(regexp-quote "*********") "*"
"\\(\n------*\\)*")
(concat "End of.*\n"
(regexp-quote "*") "*"))
"*Regexps matching the end of a digest message."
:group 'rmail
:type 'regexp)
:type '(repeat regexp))
;;;###autoload
(defun undigestify-rmail-message ()
@ -79,16 +82,19 @@ Leaves original message, deleted, before the undigestified messages."
(mail-fetch-field "From")))
(error "Message is not a digest--bad header")))))
(save-excursion
(goto-char (point-max))
(skip-chars-backward " \t\n")
(let (found)
;; compensate for broken un*x digestifiers. Sigh Sigh.
(while (and (> (point) start) (not found))
(forward-line -1)
(if (looking-at rmail-digest-end-regexp)
(setq found t)))
(if (not found)
(error "Message is not a digest--no end line"))))
(let (found
(regexps rmail-digest-end-regexps))
(while (and regexps (not found))
(goto-char (point-max))
(skip-chars-backward " \t\n")
;; compensate for broken un*x digestifiers. Sigh Sigh.
(while (and (> (point) start) (not found))
(forward-line -1)
(if (looking-at (car regexps))
(setq found t))
(setq regexps (cdr regexps)))
(unless found
(error "Message is not a digest--no end line"))))
(re-search-forward (concat "^" (make-string 55 ?-) "-*\n*"))
(replace-match "\^_\^L\n0, unseen,,\n*** EOOH ***\n")
(save-restriction