Mercurial > emacs
comparison lisp/gnus/webmail.el @ 106850:a6629254b6ba
from trunk
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 15 Jan 2010 14:13:05 +0900 |
| parents | 855f55740303 |
| children | 8d09094063d0 376148b31b5e |
comparison
equal
deleted
inserted
replaced
| 106849:731b62c1f5cb | 106850:a6629254b6ba |
|---|---|
| 527 (goto-char (point-max)) | 527 (goto-char (point-max)) |
| 528 (setq p (point)) | 528 (setq p (point)) |
| 529 (widen))) | 529 (widen))) |
| 530 (delete-region p (point-max)) | 530 (delete-region p (point-max)) |
| 531 (goto-char (point-min)) | 531 (goto-char (point-min)) |
| 532 ;; Some blank line to seperate mails. | 532 ;; Some blank line to separate mails. |
| 533 (insert "\n\nFrom nobody " (current-time-string) "\n") | 533 (insert "\n\nFrom nobody " (current-time-string) "\n") |
| 534 (insert "X-Gnus-Webmail: " (symbol-value 'user) | 534 (insert "X-Gnus-Webmail: " (symbol-value 'user) |
| 535 "@" (symbol-name webmail-type) "\n") | 535 "@" (symbol-name webmail-type) "\n") |
| 536 (if id | 536 (if id |
| 537 (insert (format "X-Message-ID: <%s@hotmail.com>\n" id))) | 537 (insert (format "X-Message-ID: <%s@hotmail.com>\n" id))) |
| 656 (insert " description=\"" description "\"")) | 656 (insert " description=\"" description "\"")) |
| 657 (insert "><#/part>\n") | 657 (insert "><#/part>\n") |
| 658 (setq p (point)))) | 658 (setq p (point)))) |
| 659 (delete-region p (point-max)) | 659 (delete-region p (point-max)) |
| 660 (goto-char (point-min)) | 660 (goto-char (point-min)) |
| 661 ;; Some blank line to seperate mails. | 661 ;; Some blank line to separate mails. |
| 662 (insert "\n\nFrom nobody " (current-time-string) "\n") | 662 (insert "\n\nFrom nobody " (current-time-string) "\n") |
| 663 (insert "X-Gnus-Webmail: " (symbol-value 'user) | 663 (insert "X-Gnus-Webmail: " (symbol-value 'user) |
| 664 "@" (symbol-name webmail-type) "\n") | 664 "@" (symbol-name webmail-type) "\n") |
| 665 (if id | 665 (if id |
| 666 (insert (format "X-Message-ID: <%s@yahoo.com>\n" id))) | 666 (insert (format "X-Message-ID: <%s@yahoo.com>\n" id))) |
| 833 (unless mime | 833 (unless mime |
| 834 (narrow-to-region p (point-max)) | 834 (narrow-to-region p (point-max)) |
| 835 (setq mime (webmail-netaddress-single-part)) | 835 (setq mime (webmail-netaddress-single-part)) |
| 836 (widen)) | 836 (widen)) |
| 837 (goto-char (point-min)) | 837 (goto-char (point-min)) |
| 838 ;; Some blank line to seperate mails. | 838 ;; Some blank line to separate mails. |
| 839 (insert "\n\nFrom nobody " (current-time-string) "\n") | 839 (insert "\n\nFrom nobody " (current-time-string) "\n") |
| 840 (insert "X-Gnus-Webmail: " (symbol-value 'user) | 840 (insert "X-Gnus-Webmail: " (symbol-value 'user) |
| 841 "@" (symbol-name webmail-type) "\n") | 841 "@" (symbol-name webmail-type) "\n") |
| 842 (if id | 842 (if id |
| 843 (insert (format "X-Message-ID: <%s@%s>\n" id webmail-address))) | 843 (insert (format "X-Message-ID: <%s@%s>\n" id webmail-address))) |
| 960 (unless mime | 960 (unless mime |
| 961 (narrow-to-region p (point-max)) | 961 (narrow-to-region p (point-max)) |
| 962 (setq mime (webmail-netaddress-single-part)) | 962 (setq mime (webmail-netaddress-single-part)) |
| 963 (widen)) | 963 (widen)) |
| 964 (goto-char (point-min)) | 964 (goto-char (point-min)) |
| 965 ;; Some blank line to seperate mails. | 965 ;; Some blank line to separate mails. |
| 966 (insert "\n\nFrom nobody " (current-time-string) "\n") | 966 (insert "\n\nFrom nobody " (current-time-string) "\n") |
| 967 (insert "X-Gnus-Webmail: " (symbol-value 'user) | 967 (insert "X-Gnus-Webmail: " (symbol-value 'user) |
| 968 "@" (symbol-name webmail-type) "\n") | 968 "@" (symbol-name webmail-type) "\n") |
| 969 (if id | 969 (if id |
| 970 (insert (format "X-Message-ID: <%s@%s>\n" id webmail-address))) | 970 (insert (format "X-Message-ID: <%s@%s>\n" id webmail-address))) |