Re: message-toggle-gcc

[Joe Casadonte]

On Mon, 23 Aug 2004, Joe Casadonte wrote:

> On Sat, 14 Aug 2004, Emilio Lopes wrote:
>
>> Despite its name, it also needs Gnus.  I bind it to "C-c C-f C-g"
>> in `message-mode-map'.
>
> Great idea, Emilio!
>
> Here's a variation that:
>
> a) does not require gnus
> b) stores the previous value to be restored later

Tweaked a little to handle empty GCC fields (can now add it if it
didn't exist previously):


(make-variable-buffer-local
 (defvar message-save-gcc nil
   "Stores current value of GCC header - used with `message-toggle-gcc'."))



(defun message-toggle-gcc ()
  "Insert or remove the \"Gcc\" header.

Uses buffer-local variable `message-save-gcc' to store current Gcc:
value before removing it."
  (interactive)
  (save-excursion
        (let (gcc)
          (save-restriction
                (message-narrow-to-headers)
                (setq gcc (mail-fetch-field "Gcc")))
          (if gcc
                  (progn
                        (setq message-save-gcc gcc)
                        (message-remove-header "Gcc"))
                (message-position-on-field "Gcc" "Subject")
                (insert (or message-save-gcc "")))
                )))

--
Regards,

joe
Joe Casadonte
address@hidden

------------------------------------------------------------------------------
         Llama Fresh Farms => http://www.northbound-train.com
   Gay Media Resource List => http://www.northbound-train.com/gaymedia.html
            Perl for Win32 => http://www.northbound-train.com/perlwin32.html
               Emacs Stuff => http://www.northbound-train.com/emacs.html
          Music CD Trading => http://www.northbound-train.com/cdr.html
------------------------------------------------------------------------------
                       Live Free, that's the message!
------------------------------------------------------------------------------