Mercurial > emacs
comparison lisp/mail/sendmail.el @ 24622:787f4cefd148
(mail-sent-via): Use copy-marker not make-marker.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Mon, 26 Apr 1999 04:33:56 +0000 |
| parents | 0dc19350498f |
| children | 2953218005dd |
comparison
equal
deleted
inserted
replaced
| 24621:54ef2ebc8494 | 24622:787f4cefd148 |
|---|---|
| 1056 (defun mail-sent-via () | 1056 (defun mail-sent-via () |
| 1057 "Make a Sent-via header line from each To or CC header line." | 1057 "Make a Sent-via header line from each To or CC header line." |
| 1058 (interactive) | 1058 (interactive) |
| 1059 (save-excursion | 1059 (save-excursion |
| 1060 ;; put a marker at the end of the header | 1060 ;; put a marker at the end of the header |
| 1061 (let ((end (make-marker (mail-header-end))) | 1061 (let ((end (copy-marker (mail-header-end))) |
| 1062 (case-fold-search t) | 1062 (case-fold-search t) |
| 1063 to-line) | 1063 to-line) |
| 1064 (goto-char (point-min)) | 1064 (goto-char (point-min)) |
| 1065 ;; search for the To: lines and make Sent-via: lines from them | 1065 ;; search for the To: lines and make Sent-via: lines from them |
| 1066 ;; search for the next To: line | 1066 ;; search for the next To: line |