Gnus development mailing list
 help / color / mirror / Atom feed
From: Alex Schroeder <alex@emacswiki.org>
Subject: finding the article buffer when splitting
Date: Fri, 13 Sep 2002 18:18:01 +0200	[thread overview]
Message-ID: <873csdrhhi.fsf_-_@emacswiki.org> (raw)
In-Reply-To: <uv6r8g9n5id.fsf@suspiria.ai.mit.edu>

jhbrown@ai.mit.edu (Jeremy H. Brown) writes:

> (defadvice nnmail-article-group (around name-article-buffer (&rest args))
>   "name the article buffer for use in fancy splits"
>   (let ((the-article-buffer (current-buffer)))
>     ad-do-it))
>
> (ad-activate-regexp "name-article-buffer")

Is anything like that going to be in Gnus?  This seems to be really
easy to implement.  Otherwise, we might consider adding the following
macro:

(defmacro with-article-buffer (&rest body)
  "Make the article buffer current while executing BODY.
This is useful when splitting mail with `nnmail-split-fancy'.
The article buffer is stored either in `gnus-original-article-buffer'
or `nnmail-article-buffer'."
  `(save-excursion
     (cond ((and (boundp 'gnus-original-article-buffer)
		 (gnus-buffer-live-p gnus-original-article-buffer))
	    (set-buffer gnus-original-article-buffer)
	    ,@body)
	   ((and (boundp 'nnmail-article-buffer)
		 (gnus-buffer-live-p nnmail-article-buffer))
	    (set-buffer nnmail-article-buffer)
	    ,@body)
	   (t
	    (error "There is no article buffer available.")))))

Alex.
-- 
I will be in Istanbul next week.



  parent reply	other threads:[~2002-09-13 16:18 UTC|newest]

Thread overview: 20+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2002-09-04 12:01 Splitting on mail contents? (using spam-stat.el) Oystein Viggen
2002-09-04 14:00 ` Kai Großjohann
2002-09-04 14:16   ` Oystein Viggen
2002-09-04 14:56     ` Kai Großjohann
2002-09-04 15:16       ` Oystein Viggen
2002-09-04 15:23       ` Jeremy H. Brown
2002-09-04 17:00         ` Oystein Viggen
2002-09-13 16:18         ` Alex Schroeder [this message]
2002-09-13 23:56           ` finding the article buffer when splitting Oystein Viggen
2002-09-14  1:18             ` Alex Schroeder
2002-09-14 10:01               ` Oystein Viggen
2002-09-15 18:21           ` Jeremy H. Brown
2002-09-23 14:11             ` Alex Schroeder
2002-09-23 18:49               ` Oystein Viggen
2002-09-06 15:55       ` Splitting on mail contents? (using spam-stat.el) Alex Schroeder
2002-09-07 12:30         ` Alex Schroeder
2002-09-07 17:17           ` Simon Josefsson
2002-09-07 19:05             ` Kai Großjohann
2002-09-07 19:05           ` Kai Großjohann
2002-09-12 16:07 ` Paul Jarc

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=873csdrhhi.fsf_-_@emacswiki.org \
    --to=alex@emacswiki.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
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).