🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: gnu.emacs.vm.bug
Article #9585

mod to vm-su-do-author in vm-summary.el?

#9585
From: David S. Browning
Date: Fri, 03 May 1991 03:58
46 lines
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!browning

Show 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