* Bug: Buttonization
@ 1999-09-09 20:37 Shenghuo ZHU
0 siblings, 0 replies; 2+ messages in thread
From: Shenghuo ZHU @ 1999-09-09 20:37 UTC (permalink / raw)
[-- Attachment #1: Type: text/plain, Size: 190 bytes --]
When mime is not buttonized (M-t), clicking the second URL invokes a
Netscape or so. Clicking the first URL does not work.
When mime is buttonized (M-t), the first URL is not buttonized.
[-- Attachment #2: Type: text/plain, Size: 20 bytes --]
http://www.gnus.org
[-- Attachment #3: Type: text/plain, Size: 40 bytes --]
http://www.gnus.org
--
Shenghuo ZHU
^ permalink raw reply [flat|nested] 2+ messages in thread
* Re: Bug: Buttonization
@ 1999-09-09 20:42 Shenghuo ZHU
0 siblings, 0 replies; 2+ messages in thread
From: Shenghuo ZHU @ 1999-09-09 20:42 UTC (permalink / raw)
Cc: Lars Magne Ingebrigtsen
[-- Attachment #1: Type: text/plain, Size: 230 bytes --]
Fixed by this patch.
Shenghuo
1999-09-09 Shenghuo ZHU <zsh@cs.rochester.edu>
* gnus-art.el (gnus-article-add-buttons): Don't delete markers out
of restricted region.
(gnus-mime-display-single): Set beg at correct point.
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 96-zsh5.diff --]
[-- Type: text/x-patch, Size: 1584 bytes --]
--- ../../pgnus-sent/lisp/gnus-art.el Thu Sep 2 15:23:33 1999
+++ gnus-art.el Thu Sep 9 16:13:26 1999
@@ -3146,7 +3146,8 @@
(cond
(display
(when move
- (forward-line -2))
+ (forward-line -2)
+ (setq beg (point)))
(let ((mail-parse-charset gnus-newsgroup-charset)
(mail-parse-ignored-charsets
(save-excursion (set-buffer gnus-summary-buffer)
@@ -3155,7 +3156,8 @@
(goto-char (point-max)))
((and text not-attachment)
(when move
- (forward-line -2))
+ (forward-line -2)
+ (setq beg (point)))
(gnus-article-insert-newline)
(mm-insert-inline handle (mm-get-part handle))
(goto-char (point-max))))
@@ -4081,14 +4083,17 @@
(alist gnus-button-alist)
beg entry regexp)
;; Remove all old markers.
- (let (marker entry)
+ (let (marker entry new-list)
(while (setq marker (pop gnus-button-marker-list))
- (goto-char marker)
- (when (setq entry (gnus-button-entry))
- (put-text-property (match-beginning (nth 1 entry))
- (match-end (nth 1 entry))
- 'gnus-callback nil))
- (set-marker marker nil)))
+ (if (or (< marker (point-min)) (>= marker (point-max)))
+ (push marker new-list)
+ (goto-char marker)
+ (when (setq entry (gnus-button-entry))
+ (put-text-property (match-beginning (nth 1 entry))
+ (match-end (nth 1 entry))
+ 'gnus-callback nil))
+ (set-marker marker nil)))
+ (setq gnus-button-marker-list new-list))
;; We skip the headers.
(article-goto-body)
(setq beg (point))
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~1999-09-09 20:42 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
1999-09-09 20:37 Bug: Buttonization Shenghuo ZHU
1999-09-09 20:42 Shenghuo ZHU
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).