projects
/
gnus
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
381110a
)
Convert the end of line into a button.
author
ShengHuo ZHU
<zsh@cs.rochester.edu>
Sun, 19 Nov 2000 14:00:29 +0000
(14:00 +0000)
committer
ShengHuo ZHU
<zsh@cs.rochester.edu>
Sun, 19 Nov 2000 14:00:29 +0000
(14:00 +0000)
lisp/gnus-art.el
patch
|
blob
|
history
diff --git
a/lisp/gnus-art.el
b/lisp/gnus-art.el
index
2b5a13d
..
e93483a
100644
(file)
--- a/
lisp/gnus-art.el
+++ b/
lisp/gnus-art.el
@@
-5071,6
+5071,11
@@
For example:
%t The security MIME type
%i Additional info")
%t The security MIME type
%i Additional info")
+(defvar gnus-mime-security-button-end-line-format "%{%([[End of %t]]%)%}\n"
+ "The following specs can be used:
+%t The security MIME type
+%i Additional info")
+
(defvar gnus-mime-security-button-line-format-alist
'((?t gnus-tmp-type ?s)
(?i gnus-tmp-info ?s)))
(defvar gnus-mime-security-button-line-format-alist
'((?t gnus-tmp-type ?s)
(?i gnus-tmp-info ?s)))
@@
-5132,7
+5137,8
@@
For example:
(nth 2 (assoc protocol mm-decrypt-function-alist))
"Unknown")
(if (equal (car handle) "multipart/signed")
(nth 2 (assoc protocol mm-decrypt-function-alist))
"Unknown")
(if (equal (car handle) "multipart/signed")
- " Signed" " Encrypted")))
+ " Signed" " Encrypted")
+ " Part"))
(gnus-tmp-info
(or (mm-handle-multipart-ctl-parameter handle 'gnus-info)
"Undecided"))
(gnus-tmp-info
(or (mm-handle-multipart-ctl-parameter handle 'gnus-info)
"Undecided"))
@@
-5171,14
+5177,9
@@
For example:
(gnus-mime-display-mixed (cdr handle))
(unless (bolp)
(insert "\n"))
(gnus-mime-display-mixed (cdr handle))
(unless (bolp)
(insert "\n"))
- (let ((protocol (mm-handle-multipart-ctl-parameter handle 'protocol)))
- (insert "[End of "
- (or (nth 2 (assoc protocol mm-verify-function-alist))
- (nth 2 (assoc protocol mm-decrypt-function-alist))
- "Unknown")
- (if (equal (car handle) "multipart/signed")
- " Signed" " Encrypted")
- "]\n"))
+ (let ((gnus-mime-security-button-line-format
+ gnus-mime-security-button-end-line-format))
+ (gnus-insert-mime-security-button handle))
(mm-set-handle-multipart-parameter handle 'gnus-region
(cons (set-marker (make-marker)
(point-min))
(mm-set-handle-multipart-parameter handle 'gnus-region
(cons (set-marker (make-marker)
(point-min))