Mercurial > emacs
comparison lisp/mh-e/mh-mime.el @ 108760:f528b6459bdd
merge trunk
| author | Kenichi Handa <handa@etlken> |
|---|---|
| date | Tue, 25 May 2010 09:35:50 +0900 |
| parents | 7be123ae7612 |
| children | d3285b080feb |
comparison
equal
deleted
inserted
replaced
| 108759:0bb727f1d547 | 108760:f528b6459bdd |
|---|---|
| 506 (when mh-decode-mime-flag | 506 (when mh-decode-mime-flag |
| 507 (let ((buffer-read-only nil)) | 507 (let ((buffer-read-only nil)) |
| 508 (rfc2047-decode-region (point-min) (mh-mail-header-end))))) | 508 (rfc2047-decode-region (point-min) (mh-mail-header-end))))) |
| 509 | 509 |
| 510 ;;;###mh-autoload | 510 ;;;###mh-autoload |
| 511 (defun mh-decode-message-subject () | |
| 512 "Decode RFC2047 encoded message header fields." | |
| 513 (when mh-decode-mime-flag | |
| 514 (save-excursion | |
| 515 (let ((buffer-read-only nil)) | |
| 516 (rfc2047-decode-region (progn (mh-goto-header-field "subject:") (point)) | |
| 517 (progn (mh-header-field-end) (point))))))) | |
| 518 | |
| 519 ;;;###mh-autoload | |
| 511 (defun mh-mime-display (&optional pre-dissected-handles) | 520 (defun mh-mime-display (&optional pre-dissected-handles) |
| 512 "Display (and possibly decode) MIME handles. | 521 "Display (and possibly decode) MIME handles. |
| 513 Optional argument, PRE-DISSECTED-HANDLES is a list of MIME | 522 Optional argument, PRE-DISSECTED-HANDLES is a list of MIME |
| 514 handles. If present they are displayed otherwise the buffer is | 523 handles. If present they are displayed otherwise the buffer is |
| 515 parsed and then displayed." | 524 parsed and then displayed." |