Re: Imroving deleting/stripping MIME parts

[Reiner Steib <reinersteib+gmane@imap.cc>]

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. <news:v9ll2il854.fsf@marauder.physik.uni-ulm.de> in gmane.test.

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/