diff options
| author | Daiki Ueno <ueno@unixuser.org> | 2011-10-26 09:25:34 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2011-10-26 09:25:34 +0000 |
| commit | 49964155e29a676d4e6ad9a982011c11a6589a3d (patch) | |
| tree | 7dca74734d0c546112a99e518c62341777bfcb57 | |
| parent | ad74a69e6bfe6ae72a9ae7e892730b50e9430bef (diff) | |
| download | emacs-49964155e29a676d4e6ad9a982011c11a6589a3d.tar.gz | |
mml.el: Support quoting <#secure> tag.
| -rw-r--r-- | lisp/gnus/ChangeLog | 7 | ||||
| -rw-r--r-- | lisp/gnus/mml.el | 4 |
2 files changed, 8 insertions, 3 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 592d0671c26..8b4e993149e 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2011-10-26 Daiki Ueno <ueno@unixuser.org> + + * mml.el (mml-quote-region): Quote <#secure> tag. + (mml-generate-mime-1): Unquote <#secure> tag. + 2011-10-20 Chong Yidong <cyd@gnu.org> * gnus-cite.el (gnus-message-citation-mode): Doc fix (in Emacs 24, @@ -18548,7 +18553,7 @@ gnus-requst-update-info with explicit code to sync the in-memory info read flags with the marks being sync'd to the backend. - *gnus-util.el (gnus-pp): Add optional stream to match pp API. + * gnus-util.el (gnus-pp): Add optional stream to match pp API. 2004-09-28 Teodor Zlatanov <tzz@lifelogs.com> diff --git a/lisp/gnus/mml.el b/lisp/gnus/mml.el index 0d2ae2a845a..352fa329e3e 100644 --- a/lisp/gnus/mml.el +++ b/lisp/gnus/mml.el @@ -525,7 +525,7 @@ If MML is non-nil, return the buffer up till the correspondent mml tag." ;; Remove quotes from quoted tags. (goto-char (point-min)) (while (re-search-forward - "<#!+/?\\(part\\|multipart\\|external\\|mml\\)" + "<#!+/?\\(part\\|multipart\\|external\\|mml\\|secure\\)" nil t) (delete-region (+ (match-beginning 0) 2) (+ (match-beginning 0) 3)))))) @@ -1232,7 +1232,7 @@ If not set, `default-directory' will be used." (goto-char (point-min)) ;; Quote parts. (while (re-search-forward - "<#!*/?\\(multipart\\|part\\|external\\|mml\\)" nil t) + "<#!*/?\\(multipart\\|part\\|external\\|mml\\|secure\\)" nil t) ;; Insert ! after the #. (goto-char (+ (match-beginning 0) 2)) (insert "!"))))) |