adding a header when filing a message into a specific mailbox

adding a header when filing a message into a specific mailbox

[Erik Colson]

Hi,

I happen to have a lot of mailboxes (~2000) to archive mails which works
fine with gnus.

However there is one specific mailbox I use to archive mails concerning
projects which never got executed. This mailbox holds a lot of messages
which are not really searchable.

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...

What do you guys think about this?
Maybe this already exists?
Or maybe this idea is nuts?

any ideas welcome !
-- 
erik colson

Re: adding a header when filing a message into a specific mailbox

[Peter Münster]

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