From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/60853 Path: news.gmane.org!not-for-mail From: Reiner Steib Newsgroups: gmane.emacs.gnus.general Subject: Re: Imroving deleting/stripping MIME parts Date: Wed, 31 Aug 2005 12:26:40 +0200 Organization: Dept. of Theoretical Physics, University of Ulm Message-ID: References: <87r7cfxfma.fsf@uwo.ca> <87d5nw88p9.fsf@uwo.ca> <87fysr78gi.fsf@uwo.ca> Reply-To: Reiner Steib NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1125484311 18727 80.91.229.2 (31 Aug 2005 10:31:51 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Wed, 31 Aug 2005 10:31:51 +0000 (UTC) Original-X-From: ding-owner+M9385=ding+2Daccount=gmane.org@lists.math.uh.edu Wed Aug 31 12:31:45 2005 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by ciao.gmane.org with esmtp (Exim 4.43) id 1EAPrE-0002X2-KK for ding-account@gmane.org; Wed, 31 Aug 2005 12:30:16 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu ident=lists) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 1EAPrD-0007QW-03 for ding-account@gmane.org; Wed, 31 Aug 2005 05:30:15 -0500 Original-Received: from util2.math.uh.edu ([129.7.128.23]) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1EAPr8-0007QO-00 for ding@lists.math.uh.edu; Wed, 31 Aug 2005 05:30:10 -0500 Original-Received: from quimby.gnus.org ([80.91.224.244]) by util2.math.uh.edu with esmtp (Exim 4.30) id 1EAPqy-0002li-17 for ding@lists.math.uh.edu; Wed, 31 Aug 2005 05:30:00 -0500 Original-Received: from main.gmane.org ([80.91.229.2] helo=ciao.gmane.org) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1EAPqw-0003Wh-00 for ; Wed, 31 Aug 2005 12:29:58 +0200 Original-Received: from list by ciao.gmane.org with local (Exim 4.43) id 1EAPpS-000281-MQ for ding@gnus.org; Wed, 31 Aug 2005 12:28:26 +0200 Original-Received: from bridgekeeper.physik.uni-ulm.de ([134.60.10.123]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Wed, 31 Aug 2005 12:28:26 +0200 Original-Received: from Reiner.Steib by bridgekeeper.physik.uni-ulm.de with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Wed, 31 Aug 2005 12:28:26 +0200 X-Injected-Via-Gmane: http://gmane.org/ Mail-Followup-To: ding@gnus.org Original-To: ding@gnus.org Original-Lines: 55 Original-X-Complaints-To: usenet@sea.gmane.org X-Gmane-NNTP-Posting-Host: bridgekeeper.physik.uni-ulm.de X-Face: .*T0'iU(sujq_j9\J>-d4fg;N/1++U#U$_5ii6k.=|"-n'?5O:Hyz&wi'-!I~,}7~GgT=0S /&-R5sbkNy5+Xo1y{Tw2KKxi@Xh"g@]Qc|.U<*]WDd)qvGowFDvfU1F]{EDho:7P0@|oOD=Bc{K4?> WP68K[Mx:}=`ZT'6g4'f+g?;`vri2!)xGy}3:=l'(/Cea0l4lo^H5#@/Z3ev Mail-Copies-To: nobody User-Agent: Gnus/5.110004 (No Gnus v0.4) Emacs/22.0.50 (gnu/linux) Cancel-Lock: sha1:riX7pos/GYnsayWduWQ1VZKL+nI= X-Spam-Score: -4.7 (----) Precedence: bulk Original-Sender: ding-owner@lists.math.uh.edu Xref: news.gmane.org gmane.emacs.gnus.general:60853 Archived-At: On Wed, Aug 31 2005, Katsumi Yamaoka wrote: > I'd like to propose adding two features. The following > definition displays all the MIME buttons even if > `gnus-inhibit-mime-unbuttonizing' is nil (which is the default), > and specifies which part the user is going to manipulate. How > about it? > (defun gnus-article-part-wrapper (n function &optional no-handle) > (let (window redisplay) > ;; Check whether the article is displayed. > (unless (and (gnus-buffer-live-p gnus-article-buffer) > (setq window (get-buffer-window gnus-article-buffer t)) > (frame-visible-p (window-frame window))) > (error "No article is displayed")) > ;; Check whether the article displays the right contents. > (unless (with-current-buffer gnus-article-buffer > (with-current-buffer gnus-summary-buffer > (eq gnus-current-article (gnus-summary-article-number)))) > (error "You should select the right article first")) > ;; Make sure all the MIME buttons are visible. > (unless gnus-inhibit-mime-unbuttonizing > (setq redisplay t) > (let ((gnus-inhibit-mime-unbuttonizing t)) > (gnus-summary-show-article))) > (save-window-excursion > (select-window window) > (when (> n (length gnus-article-mime-handle-alist)) > (error "No such part")) > (gnus-article-goto-part n) > (let ((cursor-in-non-selected-windows t) ;; Display cursor. > (overlay-arrow-string "=>") ;; Display arrow. > (overlay-arrow-position (point-marker))) Could you explain why these variables are useful here? (I don't see any arrows.) > (unwind-protect > (if no-handle > (funcall function) > (let ((handle (cdr (assq n gnus-article-mime-handle-alist)))) > (funcall function handle))) > (set-marker overlay-arrow-position nil) > (when redisplay > (gnus-summary-show-article))))))) This additional `gnus-summary-show-article' after the funcall breaks commands like `3 K i'. See e.g. in gmane.test. Bye, Reiner. -- ,,, (o o) ---ooO-(_)-Ooo--- | PGP key available | http://rsteib.home.pages.de/