Mercurial > emacs
changeset 23378:85656c9cca2a
(rmail-retry-failure): Allow blanks in boundary
string. Expose mime stuff while searching.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 06 Oct 1998 22:54:20 +0000 |
| parents | acb6d2c4220b |
| children | cfa9bc8ed327 |
| files | lisp/mail/rmail.el |
| diffstat | 1 files changed, 8 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmail.el Tue Oct 06 22:35:51 1998 +0000 +++ b/lisp/mail/rmail.el Tue Oct 06 22:54:20 1998 +0000 @@ -2989,10 +2989,13 @@ (require 'mail-utils) (let ((rmail-this-buffer (current-buffer)) (msgnum rmail-current-message) + (pruned (rmail-msg-is-pruned)) bounce-start bounce-end bounce-indent resending) (save-excursion ;; Narrow down to just the quoted original message - (rmail-beginning-of-message) + (if pruned + (rmail-toggle-header 0) + (rmail-beginning-of-message)) (let* ((case-fold-search t) (top (point)) (content-type @@ -3003,7 +3006,7 @@ ;; Handle MIME multipart bounce messages (if (and content-type (string-match - ";[\n\t ]*boundary=\"?\\([-0-9a-z'()+_,./:=?]+\\)\"?" + ";[\n\t ]*boundary=\"?\\([-0-9a-z'()+_,./:=? ]+\\)\"?" content-type)) (let ((codestring (concat "\n--" @@ -3084,7 +3087,9 @@ (goto-char (point-min)) (mail-position-on-field (if resending "Resent-To" "To") t) (set-buffer rmail-this-buffer) - (rmail-beginning-of-message)))))) + (rmail-beginning-of-message)))) + (if pruned + (rmail-toggle-header)))) (defun rmail-summary-exists () "Non-nil iff in an RMAIL buffer and an associated summary buffer exists.