Mercurial > emacs
comparison lisp/mail/unrmail.el @ 101589:01abffb7f38c
(unrmail): Record labels in X-RMAIL-* fields, which are recognized by
the new Rmail, instead of X-BABYL-V6-*.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Tue, 27 Jan 2009 22:38:58 +0000 |
| parents | a8fcffcd20d5 |
| children | c39779cefaea |
comparison
equal
deleted
inserted
replaced
| 101588:b7197e72fe7a | 101589:01abffb7f38c |
|---|---|
| 201 | 201 |
| 202 (goto-char (point-min)) | 202 (goto-char (point-min)) |
| 203 ;; Insert the `From ' line. | 203 ;; Insert the `From ' line. |
| 204 (insert mail-from "\n") | 204 (insert mail-from "\n") |
| 205 ;; Record the keywords and attributes in our special way. | 205 ;; Record the keywords and attributes in our special way. |
| 206 (insert "X-BABYL-V6-ATTRIBUTES: " (apply 'string attrs) "\n") | 206 (insert "X-RMAIL-ATTRIBUTES: " (apply 'string attrs) "\n") |
| 207 (when keywords | 207 (when keywords |
| 208 (insert "X-BABYL-V6-KEYWORDS: " keywords "\n")) | 208 (insert "X-RMAIL-KEYWORDS: " keywords "\n")) |
| 209 (goto-char (point-min)) | 209 (goto-char (point-min)) |
| 210 ;; ``Quote'' "\nFrom " as "\n>From " | 210 ;; ``Quote'' "\nFrom " as "\n>From " |
| 211 ;; (note that this isn't really quoting, as there is no requirement | 211 ;; (note that this isn't really quoting, as there is no requirement |
| 212 ;; that "\n[>]+From " be quoted in the same transparent way.) | 212 ;; that "\n[>]+From " be quoted in the same transparent way.) |
| 213 (let ((case-fold-search nil)) | 213 (let ((case-fold-search nil)) |