martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(rmail-retry-failure): Don't insist on finding

Browse Source 
MIME delimiter again at end of bounce text.
(mail-unsent-separator): Accept "Your message follows".
This commit is contained in:
Karl Heuer
1998-02-25 23:26:45 +00:00
parent 353800c79a
commit f980ec39f6
1 changed files with 5 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/mail/rmail.el
View File

@@ -2813,6 +2813,7 @@ typically for purposes of moderating a list."
"^ *---+ +Original message +---+ *$\\|"
"^ *--+ +begin message +--+ *$\\|"
"^ *---+ +Original message follows +---+ *$\\|"
"^ *---+ +Your message follows +---+ *$\\|"
"^|? *---+ +Message text follows: +---+ *|?$")
"A regexp that matches the separator before the text of a failed message.")
@@ -2856,13 +2857,11 @@ specifying headers which should not be copied into the new message."
(or (re-search-forward mail-mime-unsent-header nil t)
(error "Cannot find beginning of header in failed message"))
(or (search-forward "\n\n" nil t)
(error "Cannot find end of Mime data in failed message"))
(error "Cannot find start of Mime data in failed message"))
(setq bounce-start (point))
(or (search-forward codestring nil t)
(error "Cannot find end of Mime data in failed message"))
(setq bounce-end (match-beginning 0))
; (or (search-forward "\n\n" nil t)
; (error "Cannot find end of header in failed message"))
(if (search-forward codestring nil t)
(setq bounce-end (match-beginning 0))
(setq bounce-end (point-max)))
)
;; non-MIME bounce
(or (re-search-forward mail-unsent-separator nil t)