From 49964155e29a676d4e6ad9a982011c11a6589a3d Mon Sep 17 00:00:00 2001 From: Daiki Ueno Date: Wed, 26 Oct 2011 09:25:34 +0000 Subject: [PATCH] mml.el: Support quoting <#secure> tag. --- lisp/gnus/ChangeLog | 7 ++++++- 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 + + * mml.el (mml-quote-region): Quote <#secure> tag. + (mml-generate-mime-1): Unquote <#secure> tag. + 2011-10-20 Chong Yidong * 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 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 "!"))))) -- 2.39.5