diff options
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/rmail.el | 6 | ||||
| -rw-r--r-- | lisp/mail/rmailmm.el | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 016fde2bef4..5842f8e741f 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -2071,7 +2071,7 @@ Call with point at the end of the message." (defun rmail-add-mbox-headers () "Validate the RFC2822 format for the new messages. Point should be at the first new message. -An error is signalled if the new messages are not RFC2822 +An error is signaled if the new messages are not RFC2822 compliant. Unless an Rmail attribute header already exists, add it to the new messages. Return the number of new messages." @@ -2440,7 +2440,7 @@ Output a helpful message unless NOMSG is non-nil." ;; the entry for message N+1, which marks ;; the end of message N. (N = number of messages). (setq messages-head (list (point-marker))) - (setq messages-after-point + (setq messages-after-point (or (rmail-set-message-counters-counter (min (point) point-save)) 0)) @@ -3096,7 +3096,7 @@ but probably is garbage." ;; correspond to the lines in the inbox file. (goto-char (point-min)) (if header-field - (progn + (progn (re-search-forward (concat "^" (regexp-quote header-field)) nil t) (forward-line line-number-within)) (search-forward "\n\n" nil t) diff --git a/lisp/mail/rmailmm.el b/lisp/mail/rmailmm.el index d3351255583..f9eaa68c85b 100644 --- a/lisp/mail/rmailmm.el +++ b/lisp/mail/rmailmm.el @@ -882,7 +882,7 @@ The other arguments are the same as `rmail-mime-multipart-handler'." ;; We're handling what's left of a truncated message. (setq next (point-max-marker))) (t - ;; The original code signalled an error as below, but + ;; The original code signaled an error as below, but ;; this line may be a boundary of nested multipart. So, ;; we just set `next' to nil to skip this line ;; (rmail-mm-get-boundary-error-message |