On Thu, Oct 08 2015, Erik Colson wrote:
> So I was thinking how I could achieve some kind of searching in this
> specific mailbox and I got an idea: why not add a specific header
> (i.e. "x-tag:") when filing messages into this specific mailbox? So I'd
> need gnus to ask me a question (tags) when it detects that I want to
> file messages into this specific mailbox. Then gnus can add the x-tag
> header to the messages before filing them. Another option is to write a
> specific function for this...
Perhaps like this:
--8<---------------cut here---------------start------------->8---
(defun pm/save-article (group)
(interactive (list (gnus-group-completing-read
nil nil nil nil nil gnus-current-move-group)))
->(if group is the special one, then add x-tag header)
(let ((summary-p (string-match "Summary" (buffer-name))))
(gnus-summary-move-article nil group)
(if summary-p
(next-line)
(gnus-summary-next-unread-article)
(gnus-summary-show-article)
(gnus-summary-select-article-buffer))))
--8<---------------cut here---------------end--------------->8---
--
Peter
_______________________________________________
info-gnus-english mailing list
info-gnus-english@gnu.org
https://lists.gnu.org/mailman/listinfo/info-gnus-english
