Mercurial > emacs
comparison lisp/mail/rmail.el @ 30112:d2611d5071d0
(rmail-clear-headers): Don't throw an error
if rmail-ignored-headers is nil.
(rmail-retry-failure): Bind rmail-ignored-headers and
rmail-displayed-headers to nil.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Fri, 07 Jul 2000 14:14:08 +0000 |
| parents | 020fc2e83129 |
| children | e9b3bce9cb4b |
comparison
equal
deleted
inserted
replaced
| 30111:cdd9c822e994 | 30112:d2611d5071d0 |
|---|---|
| 1832 (delete-region (point) next)))) | 1832 (delete-region (point) next)))) |
| 1833 (goto-char (point-min))) | 1833 (goto-char (point-min))) |
| 1834 (or ignored-headers (setq ignored-headers rmail-ignored-headers)) | 1834 (or ignored-headers (setq ignored-headers rmail-ignored-headers)) |
| 1835 (save-restriction | 1835 (save-restriction |
| 1836 (narrow-to-region (point-min) (point)) | 1836 (narrow-to-region (point-min) (point)) |
| 1837 (while (progn | 1837 (while (and ignored-headers |
| 1838 (goto-char (point-min)) | 1838 (progn |
| 1839 (re-search-forward ignored-headers nil t)) | 1839 (goto-char (point-min)) |
| 1840 (re-search-forward ignored-headers nil t))) | |
| 1840 (beginning-of-line) | 1841 (beginning-of-line) |
| 1841 (delete-region (point) | 1842 (delete-region (point) |
| 1842 (if (re-search-forward "\n[^ \t]" nil t) | 1843 (if (re-search-forward "\n[^ \t]" nil t) |
| 1843 (1- (point)) | 1844 (1- (point)) |
| 1844 (point-max))))))))) | 1845 (point-max))))))))) |
| 3191 (aref rmail-msgref-vector msgnum) | 3192 (aref rmail-msgref-vector msgnum) |
| 3192 "retried"))) | 3193 "retried"))) |
| 3193 ;; Insert original text as initial text of new draft message. | 3194 ;; Insert original text as initial text of new draft message. |
| 3194 ;; Bind inhibit-read-only since the header delimiter | 3195 ;; Bind inhibit-read-only since the header delimiter |
| 3195 ;; of the previous message was probably read-only. | 3196 ;; of the previous message was probably read-only. |
| 3196 (let ((inhibit-read-only t)) | 3197 (let ((inhibit-read-only t) |
| 3198 rmail-displayed-headers | |
| 3199 rmail-ignored-headers) | |
| 3197 (erase-buffer) | 3200 (erase-buffer) |
| 3198 (insert-buffer-substring rmail-this-buffer bounce-start bounce-end) | 3201 (insert-buffer-substring rmail-this-buffer bounce-start bounce-end) |
| 3199 (goto-char (point-min)) | 3202 (goto-char (point-min)) |
| 3200 (if bounce-indent | 3203 (if bounce-indent |
| 3201 (indent-rigidly (point-min) (point-max) bounce-indent)) | 3204 (indent-rigidly (point-min) (point-max) bounce-indent)) |