[Emacs-diffs] /srv/bzr/emacs/trunk r106196: mml.el: Support quoting <#secure> tag.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 106196
author: Daiki Ueno <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Wed 2011-10-26 09:25:34 +0000
message:
  mml.el: Support quoting <#secure> tag.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/mml.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2011-10-20 04:16:51 +0000
+++ b/lisp/gnus/ChangeLog       2011-10-26 09:25:34 +0000
@@ -1,3 +1,8 @@
+2011-10-26  Daiki Ueno  <address@hidden>
+
+       * mml.el (mml-quote-region): Quote <#secure> tag.
+       (mml-generate-mime-1): Unquote <#secure> tag.
+
 2011-10-20  Chong Yidong  <address@hidden>
 
        * 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  <address@hidden>
 

=== modified file 'lisp/gnus/mml.el'
--- a/lisp/gnus/mml.el  2011-09-26 21:59:47 +0000
+++ b/lisp/gnus/mml.el  2011-10-26 09:25:34 +0000
@@ -525,7 +525,7 @@
                      ;; 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 @@
       (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 "!")))))