From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/25050 Path: main.gmane.org!not-for-mail From: Shenghuo ZHU Newsgroups: gmane.emacs.gnus.general Subject: Re: Bug: Buttonization Date: 09 Sep 1999 16:42:06 -0400 Organization: U of Rochester Sender: owner-ding@hpc.uh.edu Message-ID: <5bu2p33jhd.fsf@giga.cs.rochester.edu> NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1035162508 12062 80.91.224.250 (21 Oct 2002 01:08:28 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 01:08:28 +0000 (UTC) Cc: Lars Magne Ingebrigtsen Return-Path: Original-Received: from spinoza.math.uh.edu (spinoza.math.uh.edu [129.7.128.18]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id QAA22916 for ; Thu, 9 Sep 1999 16:44:06 -0400 (EDT) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by spinoza.math.uh.edu (8.9.1/8.9.1) with ESMTP id PAB28003; Thu, 9 Sep 1999 15:43:59 -0500 (CDT) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Thu, 09 Sep 1999 15:44:33 -0500 (CDT) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id PAA09580 for ; Thu, 9 Sep 1999 15:44:19 -0500 (CDT) Original-Received: from cayuga.cs.rochester.edu (cayuga.cs.rochester.edu [192.5.53.209]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id QAA22873; Thu, 9 Sep 1999 16:42:09 -0400 (EDT) Original-Received: from slate.cs.rochester.edu (slate.cs.rochester.edu [192.5.53.101]) by cayuga.cs.rochester.edu (8.9.3/Q) with SMTP id QAA06081; Thu, 9 Sep 1999 16:42:07 -0400 (EDT) Original-Received: from giga.cs.rochester.edu (giga.cs.rochester.edu [192.5.53.186]) by slate.cs.rochester.edu (8.6.9/P) with ESMTP id QAA26629; Thu, 9 Sep 1999 16:42:07 -0400 Original-Received: (from zsh@localhost) by giga.cs.rochester.edu (SMI-8.6/P++) id QAA17557; Thu, 9 Sep 1999 16:42:06 -0400 Original-To: Gnus Mailing List X-Attribution: ZSH X-Face: 'IF:e51ib'Qbl^(}l^&4-J`'P!@[4~O|&k#:@Gld#b/]oMq&`&FVY._3+b`mzp~Jeve~/#/ ERD!OTe<86UhyN=l`mrPY)M7_}`Ktt\K+58Z!hu7>qU,i.N7TotU[FYE(f1;}`g2xj!u*l`^&=Q!g{ *q|ddto|nkt"$r,K$[)"|6,elPH= GJ6Q In-Reply-To: Shenghuo ZHU's message of "09 Sep 1999 16:36:27 -0400" Original-Lines: 13 User-Agent: Gnus/5.070096 (Pterodactyl Gnus v0.96) Emacs/20.3 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:25050 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:25050 --=-=-= Fixed by this patch. Shenghuo 1999-09-09 Shenghuo ZHU * gnus-art.el (gnus-article-add-buttons): Don't delete markers out of restricted region. (gnus-mime-display-single): Set beg at correct point. --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=96-zsh5.diff --- ../../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)) --=-=-=--