Commit 49964155 authored by Daiki Ueno's avatar Daiki Ueno Committed by Katsumi Yamaoka
Browse files

mml.el: Support quoting <#secure> tag.

parent ad74a69e
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>
 
......
......@@ -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 "!")))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment