Mercurial > emacs
comparison lisp/mail/mail-hist.el @ 7639:67b7d1ea7b2e
Doc fix.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 22 May 1994 22:14:17 +0000 |
| parents | 4aa70d4d981c |
| children | 824fb42f33ab |
comparison
equal
deleted
inserted
replaced
| 7638:fb6479579c0b | 7639:67b7d1ea7b2e |
|---|---|
| 178 (cdr (assoc header mail-hist-header-ring-alist))) | 178 (cdr (assoc header mail-hist-header-ring-alist))) |
| 179 | 179 |
| 180 (defsubst mail-hist-add-header-contents-to-ring (header &optional contents) | 180 (defsubst mail-hist-add-header-contents-to-ring (header &optional contents) |
| 181 "Add the contents of HEADER to the header history ring. | 181 "Add the contents of HEADER to the header history ring. |
| 182 Optional argument CONTENTS is a string which will be the contents | 182 Optional argument CONTENTS is a string which will be the contents |
| 183 (instead of whatever's found in the header)." | 183 \(instead of whatever's found in the header)." |
| 184 (let ((ring (cdr (assoc header mail-hist-header-ring-alist)))) | 184 (let ((ring (cdr (assoc header mail-hist-header-ring-alist)))) |
| 185 (or ring | 185 (or ring |
| 186 ;; If the ring doesn't exist, we'll have to make it and add it | 186 ;; If the ring doesn't exist, we'll have to make it and add it |
| 187 ;; to the mail-header-ring-alist: | 187 ;; to the mail-header-ring-alist: |
| 188 (prog1 | 188 (prog1 |
| 249 Moves back through the history of sent mail messages. Each header has | 249 Moves back through the history of sent mail messages. Each header has |
| 250 its own independent history, as does the body of the message. | 250 its own independent history, as does the body of the message. |
| 251 | 251 |
| 252 Although you can do so, it does not make much sense to call this | 252 Although you can do so, it does not make much sense to call this |
| 253 without having called `mail-hist-previous-header' first | 253 without having called `mail-hist-previous-header' first |
| 254 (\\[mail-hist-previous-header]). | 254 \(\\[mail-hist-previous-header]). |
| 255 | 255 |
| 256 The history only contains the contents of outgoing messages, not | 256 The history only contains the contents of outgoing messages, not |
| 257 received mail." | 257 received mail." |
| 258 (interactive (list (or (mail-hist-current-header-name) "body"))) | 258 (interactive (list (or (mail-hist-current-header-name) "body"))) |
| 259 (let* ((ring (cdr (assoc header mail-hist-header-ring-alist))) | 259 (let* ((ring (cdr (assoc header mail-hist-header-ring-alist))) |