[gnus git] branch master updated: n0-17-355-ged12cb8 =1= Support quoting <#secure> tag.

       via  ed12cb81782013074a4b5d0b3084a0d690369836 (commit)
      from  6bcbe87a71ecd276591107728e1d0af3b1585049 (commit)


- Log -----------------------------------------------------------------
commit ed12cb81782013074a4b5d0b3084a0d690369836
Author: Daiki Ueno <[email protected]>
Date:   Wed Oct 26 11:20:30 2011 +0900

    Support quoting <#secure> tag.
    
    * mml.el (mml-quote-region): Quote <#secure> tag.
    (mml-generate-mime-1): Unquote <#secure> tag.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b05cfa6..66c2363 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-10-26  Daiki Ueno  <[email protected]>
+
+	* mml.el (mml-quote-region): Quote <#secure> tag.
+	(mml-generate-mime-1): Unquote <#secure> tag.
+
 2011-10-20  Chong Yidong  <[email protected]>
 
 	* gnus-cite.el (gnus-message-citation-mode): Doc fix (in Emacs 24,
diff --git a/lisp/mml.el b/lisp/mml.el
index 0d2ae2a..352fa32 100644
--- a/lisp/mml.el
+++ b/lisp/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 "!")))))

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog |    5 +++++
 lisp/mml.el    |    4 ++--
 2 files changed, 7 insertions(+), 2 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project