Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
49964155
Commit
49964155
authored
Oct 26, 2011
by
Daiki Ueno
Committed by
Katsumi Yamaoka
Oct 26, 2011
Browse files
mml.el: Support quoting <#secure> tag.
parent
ad74a69e
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
8 additions
and
3 deletions
+8
-3
lisp/gnus/ChangeLog
lisp/gnus/ChangeLog
+6
-1
lisp/gnus/mml.el
lisp/gnus/mml.el
+2
-2
No files found.
lisp/gnus/ChangeLog
View file @
49964155
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>
...
...
lisp/gnus/mml.el
View file @
49964155
...
...
@@ -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 "
!
")))))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment