projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge from emacs--devo--0, gnus--rel--5.10
[gnus]
/
lisp
/
mml1991.el
diff --git
a/lisp/mml1991.el
b/lisp/mml1991.el
index
17793b2
..
1a7588b
100644
(file)
--- a/
lisp/mml1991.el
+++ b/
lisp/mml1991.el
@@
-133,7
+133,7
@@
Whether the passphrase is cached at all is controlled by
'never))
cipher
(result-buffer (get-buffer-create "*GPG Result*")))
'never))
cipher
(result-buffer (get-buffer-create "*GPG Result*")))
- ;; Strip MIME Content[^ ]: headers since it will be ASCII ARMO
U
RED
+ ;; Strip MIME Content[^ ]: headers since it will be ASCII ARMORED
(goto-char (point-min))
(while (looking-at "^Content[^ ]+:") (forward-line))
(unless (bobp)
(goto-char (point-min))
(while (looking-at "^Content[^ ]+:") (forward-line))
(unless (bobp)
@@
-213,7
+213,7
@@
Whether the passphrase is cached at all is controlled by
(let ((text (current-buffer))
cipher
(result-buffer (get-buffer-create "*GPG Result*")))
(let ((text (current-buffer))
cipher
(result-buffer (get-buffer-create "*GPG Result*")))
- ;; Strip MIME Content[^ ]: headers since it will be ASCII ARMO
U
RED
+ ;; Strip MIME Content[^ ]: headers since it will be ASCII ARMORED
(goto-char (point-min))
(while (looking-at "^Content[^ ]+:") (forward-line))
(unless (bobp)
(goto-char (point-min))
(while (looking-at "^Content[^ ]+:") (forward-line))
(unless (bobp)
@@
-303,7
+303,7
@@
Whether the passphrase is cached at all is controlled by
(let ((cte (save-restriction
(narrow-to-region (point-min) (point))
(mail-fetch-field "content-transfer-encoding"))))
(let ((cte (save-restriction
(narrow-to-region (point-min) (point))
(mail-fetch-field "content-transfer-encoding"))))
- ;; Strip MIME headers since it will be ASCII armo
u
red.
+ ;; Strip MIME headers since it will be ASCII armored.
(forward-line 1)
(delete-region (point-min) (point))
(when cte
(forward-line 1)
(delete-region (point-min) (point))
(when cte
@@
-424,7
+424,7
@@
If no one is selected, default secret key is used. "
(let ((cte (save-restriction
(narrow-to-region (point-min) (point))
(mail-fetch-field "content-transfer-encoding"))))
(let ((cte (save-restriction
(narrow-to-region (point-min) (point))
(mail-fetch-field "content-transfer-encoding"))))
- ;; Strip MIME headers since it will be ASCII armo
u
red.
+ ;; Strip MIME headers since it will be ASCII armored.
(forward-line 1)
(delete-region (point-min) (point))
(when cte
(forward-line 1)
(delete-region (point-min) (point))
(when cte