Re: Probs with mailreading.

[Kai Grossjohann <grossjoh@charly.informatik.uni-dortmund.de>]

>>>>> On 09 Jun 1996 00:00:57 +0200, Jens Lautenbacher
>>>>> <jens@lemcbed.lem.uni-karlsruhe.de> said:

  Jens> b) I would like to have all replies, followups or postings in
  Jens>    my mail groups be saved to the group I'm posting or
  Jens>    replying from. E.g. if I post an article (or reply) to
  Jens>    jtl@tkm.physik.uni-karlsruhe.de, this message should be
  Jens>    stuffed into the "nnfolder+private:JTL" group. Is there any
  Jens>    reasonable way to achieve this? Mails out of the "Misc"
  Jens>    groups and newspostings should of course still be stuffed
  Jens>    into "nnfolder+archive: misc-mail" or "...misc-news"

I use the following setup.

,-----
| (defun kai-gnus-outgoing-message-group ()
|   (cond ((and gnus-newsgroup-name
|               (stringp gnus-newsgroup-name)
|               (string-match "^nnml" gnus-newsgroup-name))
|          gnus-newsgroup-name)
|         (t "nnml:mail.misc")))
| (setq gnus-outgoing-message-group 'kai-gnus-outgoing-message-group)
`-----

You probably want to twiddle the method and the default group name, I
think.

I also have a nifty (but poorly implemented) function

(defun message-toggle-gcc ()
  (interactive)
  (save-excursion
    (save-restriction
      (let ((pmin (progn (beginning-of-buffer) (point)))
            (pmax (progn
                    (beginning-of-buffer)
                    (re-search-forward (concat "^" mail-header-separator
                                               "$"))
                    (beginning-of-line)
                    (point))))
        (beginning-of-buffer)
        (narrow-to-region pmin pmax)
        (if (re-search-forward "^gcc: .*" nil t)
            (progn
              (beginning-of-line)
              (kill-line 1))
          (goto-char pmax)
          (insert (concat "Gcc: "
                          (kai-gnus-outgoing-message-group)
                          "\n")))))))

If I bind this to a key, something useful happens: If the Gcc header
is already in there, it will be deleted, if it isn't, a Gcc header
will be created that contains the `right' group name.

Suggestions for a cleaner implementation gladly accepted :-)

Whatcha think?
kai
-- 
Life is hard and then you die.