projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix last fix.
[gnus]
/
lisp
/
gnus-art.el
diff --git
a/lisp/gnus-art.el
b/lisp/gnus-art.el
index
56e78cc
..
7e51abb
100644
(file)
--- a/
lisp/gnus-art.el
+++ b/
lisp/gnus-art.el
@@
-6406,7
+6406,7
@@
not have a face in `gnus-article-boring-faces'."
(defun gnus-article-describe-briefly ()
"Describe article mode commands briefly."
(interactive)
(defun gnus-article-describe-briefly ()
"Describe article mode commands briefly."
(interactive)
- (gnus-message 6
(substitute-command-keys "\\<gnus-article-mode-map>\\[gnus-article-goto-next-page]:Next page
\\[gnus-article-goto-prev-page]:Prev page \\[gnus-article-show-summary]:Show summary \\[gnus-info-find-node]:Run Info \\[gnus-article-describe-briefly]:This help")))
+ (gnus-message 6
"%s" (substitute-command-keys "\\<gnus-article-mode-map>\\[gnus-article-goto-next-page]:Next page
\\[gnus-article-goto-prev-page]:Prev page \\[gnus-article-show-summary]:Show summary \\[gnus-info-find-node]:Run Info \\[gnus-article-describe-briefly]:This help")))
(defun gnus-article-check-buffer ()
"Beep if not in an article buffer."
(defun gnus-article-check-buffer ()
"Beep if not in an article buffer."
@@
-7832,8
+7832,8
@@
specified by `gnus-button-alist'."
'gnus-button-push from)
(gnus-put-text-property
start end
'gnus-button-push from)
(gnus-put-text-property
start end
- 'gnus-
data
(buffer-substring-no-properties
- start end))))))))))
+ 'gnus-
string
(buffer-substring-no-properties
+
start end))))))))))
(defun gnus-article-extend-url-button (beg start end)
"Extend url button if url is folded into two or more lines.
(defun gnus-article-extend-url-button (beg start end)
"Extend url button if url is folded into two or more lines.
@@
-7945,11
+7945,12
@@
url is put as the `gnus-button-url' overlay property on the button."
"Copy the string in the button to the kill ring."
(interactive)
(gnus-article-check-buffer)
"Copy the string in the button to the kill ring."
(interactive)
(gnus-article-check-buffer)
- (let ((data (get-text-property (point) 'gnus-
data
)))
+ (let ((data (get-text-property (point) 'gnus-
string
)))
(when data
(with-temp-buffer
(insert data)
(when data
(with-temp-buffer
(insert data)
- (copy-region-as-kill (point-min) (point-max))))))
+ (copy-region-as-kill (point-min) (point-max))
+ (message "Copied %s" data)))))
;;; Internal functions:
;;; Internal functions: