Article View: gnu.emacs.vm.bug
Article #9585mod to vm-su-do-author in vm-summary.el?
From: David S. Browning
Date: Fri, 03 May 1991 03:58
Date: Fri, 03 May 1991 03:58
46 lines
2777 bytes
2777 bytes
I like the default summary format:
"%2n %*%a %-17.17F %-3.3m %2d %4l/%-5c \"%s\"
However, when the message is from me (e.g. it's a CC), the F field
conveys no information. When the message is from me, I'd like to know
who the recipient was.
I put the following extra lines of code into vm-su-do-author in
vm-summary.el. Instead of
(if (or (null full-name) (string-match "^[ \t\n]*$" full-name))
(setq full-name from))
(vm-set-full-name-of m full-name)
(vm-set-from-of m from)))
at the very end of the vm-su-do-author defun, I have
(if (or (null full-name) (string-match "^[ \t\n]*$" full-name))
(setq full-name from))
;; Added this sexp to put recipient in summary if I'm the author.
(if (string-equal "David S. Browning" full-name)
(setq full-name
(concat "To: "
(or (vm-get-header-contents m "To")
(vm-get-header-contents m "Apparently-To")))))
(vm-set-full-name-of m full-name)
(vm-set-from-of m from)))
(BTW, I did this in version 4.41. I don't know if the same code works
in version 5.31.)
Any comments? A better way to do this? I think it would be a great
feature for vm to do this automatically somehow. It took me a while
to figure this out. I haven't written very much elisp at all (this is
about it!).
David
--
|============================================================================|
| Internet: browning@nas.nasa.gov Phone: (415) 604-4321 |
| UUCP: {hplabs, mailrus, ucbvax, etc.}!ames!amelia!browning |
|----------------------------------------------------------------------------|
|"the nice thing about true hopelessness is that you don't have to try again"|
| -- jules shear |
|============================================================================|
Technical Details
Message-ID:
<BROWNING.91May2215855@ew10.nas.nasa.gov>Path:
arc1-ca.pugleaf.net!gmdzi!unido!math.fu-berlin.de!ira.uka.de!sol.ctr.columbia.edu!zaphod.mps.ohio-state.edu!usc!apple!mips!ptimtc!nntp-server.caltech.edu!mustang!data.nas.nasa.gov!nameserver.nas.nasa.gov!browningShow Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: f6829,70e64479f1f98354,start X-Google-Attributes: gidf6829,public X-Google-Thread: 113a48,70e64479f1f98354,start X-Google-Attributes: gid113a48,public X-Google-ArrivalTime: 1991-05-03 06:31:00 PST Path: arc1-ca.pugleaf.net!gmdzi!unido!math.fu-berlin.de!ira.uka.de!sol.ctr.columbia.edu!zaphod.mps.ohio-state.edu!usc!apple!mips!ptimtc!nntp-server.caltech.edu!mustang!data.nas.nasa.gov!nameserver.nas.nasa.gov!browning From: browning@nas.nasa.gov (David S. Browning) Newsgroups: gnu.emacs.vm.bug,gnu.emacs.vm.info Subject: mod to vm-su-do-author in vm-summary.el? Message-ID: <BROWNING.91May2215855@ew10.nas.nasa.gov> Date: 3 May 91 03:58:55 GMT Sender: news@nas.nasa.gov Distribution: gnu Organization: NAS Program, NASA Ames Research Center, Moffett Field, CA Lines: 46