🚀 go-pugleaf

In vm-summary (vm-5.31), format 'f' is not very interesting for messages
from yourself.  Here are formats 'x' and 'X' which output 'to: ....'
instead, as rmail does.

*** vm.el~	Mon Apr  1 18:21:15 1991
--- vm.el	Wed Aug  7 18:24:19 1991
***************
*** 2009,2010 ****
--- 2009,2011 ----
     vm-summary-format
+    vm-summary-show-recipient-re
     vm-virtual-folder-alist

*** vm-summary.el~	Wed Mar 27 02:13:27 1991
--- vm-summary.el	Wed Aug  7 18:28:35 1991
***************
*** 190,192 ****
      (while (string-match
! "%\\(-\\)?\\([0-9]\\)*\\(\\.\\([0-9]+\\)\\)?\\([aAcdfFhilmMnstTwyz*%]\\)"
  	    format (match-end 0))
--- 190,192 ----
      (while (string-match
! "%\\(-\\)?\\([0-9]\\)*\\(\\.\\([0-9]+\\)\\)?\\([aAcdfFhilmMnstTwXxyz*%]\\)"
  	    format (match-end 0))
***************
*** 194,196 ****
        (if (memq conv-spec '(?a ?A ?c ?d ?f ?F ?h ?i ?l ?M
! 			    ?m ?n ?s ?t ?T ?w ?y ?z ?*))
  	  (progn
--- 194,196 ----
        (if (memq conv-spec '(?a ?A ?c ?d ?f ?F ?h ?i ?l ?M
! 			    ?m ?n ?s ?t ?T ?w ?x ?X ?y ?z ?*))
  	  (progn
***************
*** 244,245 ****
--- 244,251 ----
  					  'vm-su-message) sexp)))
+ 		  ((= conv-spec ?X)
+ 		   (setq sexp (cons (list 'vm-su-full-fromto
+ 					  'vm-su-message) sexp)))
+ 		  ((= conv-spec ?x)
+ 		   (setq sexp (cons (list 'vm-su-fromto
+ 					  'vm-su-message) sexp)))
  		  ((= conv-spec ?y)
***************
*** 601,602 ****
--- 607,618 ----
    (or (vm-to-names-of m) (progn (vm-su-do-recipients m) (vm-to-names-of m))))
+ 
+ (defun vm-su-fromto (m)
+   (if (string-match vm-summary-show-recipient-re (vm-su-from m))
+       (concat "to: " (vm-su-to m))
+     (vm-from-of m)))
+ 
+ (defun vm-su-full-fromto (m)
+   (if (string-match vm-summary-show-recipient-re (vm-su-from m))
+       (concat "to: " (vm-su-to-names m))
+     (vm-su-full-name m)))
  				  

*** vm-vars.el~	Mon Apr  1 18:21:12 1991
--- vm-vars.el	Wed Aug  7 18:20:46 1991
***************
*** 307,309 ****
  
! (defvar vm-summary-format "%2n %*%a %-17.17F %-3.3m %2d %4l/%-5c \"%s\"\n"
    "*String which specifies the message summary line format.
--- 307,309 ----
  
! (defvar vm-summary-format "%2n %*%a %-17.17X %-3.3m %2d %4l/%-5c \"%s\"\n"
    "*String which specifies the message summary line format.
***************
*** 344,345 ****
--- 344,348 ----
         instead.
+    x - like 'f', but show 'to: recipients as with \"t\"' for messages from you.
+    X - like 'F', but show 'to: recipients as with \"T\"' for messages from you.
+        See also variable .
     w - day of the week message sent
***************
*** 362,363 ****
--- 365,371 ----
  in the summary window.")
+ 
+ (defvar vm-summary-show-recipient-re
+   (concat "\\(^\\|<\\)" (regexp-quote (user-login-name)) "\\($\\|[@>]\\)")
+   "*Regexp matching From: lines for which the 'X' format should show 'to: ...'
+ instead of the sender.")
  

			Hallvard