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 /lisp/gnus/mml.el | |
| parent | ad74a69e6bfe6ae72a9ae7e892730b50e9430bef (diff) | |
| download | emacs-49964155e29a676d4e6ad9a982011c11a6589a3d.tar.gz | |
mml.el: Support quoting <#secure> tag.
Diffstat (limited to 'lisp/gnus/mml.el')
| -rw-r--r-- | lisp/gnus/mml.el | 4 |
1 files changed, 2 insertions, 2 deletions
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 "!"))))) |