Re: Feature wish Red Gnus

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

>>>>> On 19 Jul 1996 02:53:39 -0400, Mark Eichin <eichin@cygnus.com>
>>>>> said:

  Mark> [...] I haven't dug around to find out how to deal, but it's
  Mark> pretty clear that "this isn't how lars does it" or it would be
  Mark> easier :-)

FWIW, here's what I do.  Not too sophisticated, but kind of nice, I
think.  I have bound the last function to a key in message-mode.

I don't remember why I didn't use gnus-message-archive-group.

kai
-- 
Life is hard and then you die.


(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)
(setq gnus-message-archive-group nil)

;; I'm sure this is a horrible implementation and there's
;; a way to do it better that's a million times more
;; elegant.
(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")))))))