Linuxtrent: Re: vm

  • From: Lele Gaifax <lele@xxxxxxxxxx>
  • To: linuxtrent@xxxxxxxxxxxxx
  • Date: Wed, 6 Mar 2002 01:02:34 +0100

>>>>> On Tue, 5 Mar 2002 20:56:33 +0100, Matteo Ianeselli 
>>>>> <m.ianeselli@xxxxxxxxxxx> said:

    MI> Al limite credo si possano fare un paio di righe di Emacs Lisp
    MI> per aggiungere negli header una riga con in FCC il folder da
    MI> cui stai facendo il reply. Guardo un po' e ti faccio sapere.

Ecco il mio "paio" di righe che fa proprio quello:

;; Quando fai un reply da un folder diverso dal vm-primary-inbox, 
;; rimpiazza l'FCC con il folder stesso, in modo che le risposte
;; vengano memorizzate nello stesso posto.
(defun rf-vm-fcc-folder-of-reply ()
  (interactive)
  (save-excursion
    (when vm-reply-list
      (let ((curbufname 
             (buffer-file-name (vm-buffer-of (car vm-reply-list)))))
        (when (not (string-match curbufname 
                                 (expand-file-name vm-primary-inbox)))  
          (vm-mail-mode-remove-header "FCC:")
          (mail-position-on-field "FCC")
          (insert curbufname))))))
(add-hook 'vm-reply-hook 'rf-vm-fcc-folder-of-reply)

ciao, lele.
-- 
nickname: Lele Gaifax   | Quando vivro' di quello che ho pensato ieri
real: Emanuele Gaifas   | comincero' ad aver paura di chi mi copia.
email: lele@xxxxxxxxxx  |               -- Fortunato Depero, 1929.

-- 
Per iscriversi  (o disiscriversi), basta spedire un  messaggio con SOGGETTO
"subscribe" (o "unsubscribe") a mailto:linuxtrent-request@xxxxxxxxxxxxxxxxx


Other related posts: