home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / misc / vm-enh.patch < prev    next >
Encoding:
Internet Message Format  |  1990-07-22  |  8.6 KB
  1. From: montnaro@sprite.crd.ge.com (Skip Montanaro)
  2. Newsgroups: gnu.emacs
  3. Subject: Displaying recipient in summary and grouping by recipients in VM
  4. Message-ID: <8908210034.AA01934@sprite.crd.Ge.Com>
  5. Date: 21 Aug 89 00:34:56 GMT
  6. Reply-To: <montanaro@sprite.crd.ge.com> (Skip Montanaro)
  7. Distribution: gnu
  8. Organization: GNUs Not Usenet
  9. Lines: 222
  10.  
  11. I FCC all my mail, and occasionally need to browse that file, either to
  12. delete unwanted messages, or to resend a message. VM allows the user to
  13. group by a number of attributes, but not (any of) the receipient(s). Neither
  14. does it allow you to format the summary line to show the recipient. The
  15. context diffs against 4.39 at the end of this message do that. The "%t"
  16. string in vm-summary-format will cause VM to find the primary recipient of
  17. the message and place it in the summary line, instead of the author. The
  18. primary recipient is defined as the first address in either the To,
  19. Apparently-To, or CC fields (searched in that order). You can group by the
  20. primary recipient as well, by giving "recipient" as field to group by when
  21. prompted.
  22.  
  23. I use the changes by executing the small piece of code in ~/.emacs:
  24.  
  25.     (setq vm-mode-hooks '(hack-vm-summary-format))
  26.  
  27.     (defun hack-vm-summary-format ()
  28.       (if (string= (expand-file-name mail-archive-file-name)
  29.            buffer-file-name)
  30.       (progn
  31.         (make-variable-buffer-local 'vm-summary-format)
  32.         (setq vm-summary-format "%3n %a %-17.17t %3m %2d %3l/%-5c \"%s\"\n")
  33.         (make-variable-buffer-local 'vm-group-by)
  34.         (setq vm-group-by "recipient"))
  35.     (progn
  36.       (setq vm-summary-format "%3n %a %-17.17f %3m %2d %3l/%-5c \"%s\"\n")
  37.       (setq vm-group-by "author"))))
  38.  
  39. (Setting vm-group-by doesn't have an immediate effect when displaying
  40. summaries. I'm still debating whether to add a (vm-group-messages
  41. vm-group-by) to the end of vm-summarize.)
  42.  
  43. One note of caution. I made the changes to 4.37, then discovered I didn't
  44. have the original files anywhere. So I used diff to diff my modified VM 4.37
  45. with the latest version (4.39), edited the output to remove any 4.37-4.39
  46. diffs, then used patch to splice in my changes.  I then remade diffs and
  47. checked them to make sure no 4.37-4.39 changes were undone. I don't think I
  48. botched it, but one never knows...
  49.  
  50. *** vm-group.el.orig    Mon Jul 24 10:51:56 1989
  51. --- vm-group.el    Sun Aug 20 19:07:29 1989
  52. ***************
  53. *** 57,60 ****
  54. --- 57,63 ----
  55.     (string= (vm-full-name-of m1) (vm-full-name-of m2)))
  56.   
  57. + (defun vm-group-by-recipient (m1 m2)
  58. +   (string= (vm-to-of m1) (vm-to-of m2)))
  59. + 
  60.   (defun vm-group-by-date-sent (m1 m2)
  61.     (and (string= (vm-monthday-of m1) (vm-monthday-of m2))
  62. *** vm-summary.el.orig    Mon Jul 24 10:51:57 1989
  63. --- vm-summary.el    Sun Aug 20 19:07:31 1989
  64. ***************
  65. *** 160,167 ****
  66.       (store-match-data nil)
  67.       (while (string-match
  68. ! "%\\(-\\)?\\([0-9]\\)*\\(\\.\\([0-9]+\\)\\)?\\([acdfFhilmnswyz%]\\)"
  69.           format (match-end 0))
  70.         (setq conv-spec (aref format (match-beginning 5)))
  71. !       (if (memq conv-spec '(?a ?c ?d ?f ?F ?h ?i ?l ?m ?n ?s ?w ?y ?z))
  72.         (progn
  73.           (cond ((= conv-spec ?a)
  74. --- 160,167 ----
  75.       (store-match-data nil)
  76.       (while (string-match
  77. ! "%\\(-\\)?\\([0-9]\\)*\\(\\.\\([0-9]+\\)\\)?\\([acdfFhilmnstwyz%]\\)"
  78.           format (match-end 0))
  79.         (setq conv-spec (aref format (match-beginning 5)))
  80. !       (if (memq conv-spec '(?a ?c ?d ?f ?F ?h ?i ?l ?m ?n ?s ?t ?w ?y ?z))
  81.         (progn
  82.           (cond ((= conv-spec ?a)
  83. ***************
  84. *** 198,201 ****
  85. --- 198,204 ----
  86.              (setq sexp (cons (list 'vm-su-subject
  87.                         'vm-su-message) sexp)))
  88. +           ((= conv-spec ?t)
  89. +            (setq sexp (cons (list 'vm-su-to
  90. +                       'vm-su-message) sexp)))
  91.             ((= conv-spec ?w)
  92.              (setq sexp (cons (list 'vm-su-weekday
  93. ***************
  94. *** 388,391 ****
  95. --- 391,435 ----
  96.     (or (vm-from-of m)
  97.         (progn (vm-su-do-author m) (vm-from-of m))))
  98. + 
  99. + (defun vm-su-to (m)
  100. +   (or (vm-to-of m)
  101. +       (progn (vm-su-do-recipient m) (vm-to-of m))))
  102. + 
  103. + ;; Just pick off the first recipient - useful for browsing outgoing archives
  104. + ;; (e.g., FCC'd mail).
  105. + (defun vm-su-do-recipient (message)
  106. +   (let (to pat1 pat2 pat3)
  107. +     (setq to (or (vm-get-header-contents m "To")
  108. +          (vm-get-header-contents m "Apparently-To")
  109. +          (vm-get-header-contents m "CC")))
  110. +     (if (null to)
  111. +     (setq to "???")
  112. +       (progn
  113. +     ;; pick off first address
  114. +     (if (string-match "^[ \t]*\\([^\n,]+\\).*" to)
  115. +         (setq to (substring to (match-beginning 1) (match-end 1))))
  116. + 
  117. +     ;; pat1, pat2, and pat3 are tried in order. 
  118. +     ;; junk < address > junk
  119. +     (setq pat1 "^.*<\\([^> \t\n]+\\).*")
  120. +     ;; addr? ( junk ) addr?
  121. +     (setq pat2 "^[ \t]*\\([^( \t\n]*\\)[ \t]*([^)]*)[ \t]*\\([^ \t\n]*\\)[ \t]*")
  122. +     ;; addr?
  123. +     (setq pat3 "^[ \t]*\\([^ \t\n]+\\)[ \t\n]*")
  124. +     (if (not (string-match pat1 to))
  125. +         (progn
  126. +           (if (not (string-match pat2 to))
  127. +           (progn
  128. +             (if (not (string-match pat3 to))
  129. +             (error "Invalid pattern in vm-su-do-recipient")
  130. +               (setq to (substring to (match-beginning 1)
  131. +                       (match-end 1)))))
  132. +         (if (not (eq (match-beginning 1) (match-end 1)))
  133. +             (setq to (substring to (match-beginning 1)
  134. +                     (match-end 1)))
  135. +           (setq to (substring to (match-beginning 2)
  136. +                       (match-end 2))))))
  137. +       (setq to (substring to (match-beginning 1) (match-end 1))))))
  138. +     (vm-set-to-of m to)))
  139.   
  140.   ;; Some yogurt-headed delivery agents don't even provide a From: header.
  141. *** vm.el.orig    Mon Jul 24 10:51:57 1989
  142. --- vm.el    Sun Aug 20 19:43:27 1989
  143. ***************
  144. *** 175,178 ****
  145. --- 175,179 ----
  146.      n - message number
  147.      s - message subject
  148. +    t - the primary recipient (first recipient from To:, Apparently-To:, CC:)
  149.      w - day of the week message sent
  150.      y - year message sent
  151. ***************
  152. *** 229,235 ****
  153.       Re:'s) to be presented together,
  154.     \"author\", which causes messages with the same author to be presented
  155. !     together, and
  156.     \"date-sent\", which causes message sent on the same day to be
  157. !     presented together.
  158.     \"arrival-time\" which appears only for completeness, this is the
  159.       default behavior and is the same as nil.
  160. --- 230,238 ----
  161.       Re:'s) to be presented together,
  162.     \"author\", which causes messages with the same author to be presented
  163. !     together,
  164. !   \"recipient\", which causes message sent to the same primary recipient to
  165. !     be presented together,
  166.     \"date-sent\", which causes message sent on the same day to be
  167. !     presented together, and
  168.     \"arrival-time\" which appears only for completeness, this is the
  169.       default behavior and is the same as nil.
  170. ***************
  171. *** 368,372 ****
  172.   (defconst vm-header-regexp-format "^%s:[ \t]*\\(.*\\(\n[ \t]+.*\\)*\\)")
  173.   (defconst vm-supported-groupings-alist
  174. !   '(("arrival-time") ("subject") ("author") ("date-sent")))
  175.   (defconst vm-total-count 0)
  176.   (defconst vm-new-count 0)
  177. --- 371,375 ----
  178.   (defconst vm-header-regexp-format "^%s:[ \t]*\\(.*\\(\n[ \t]+.*\\)*\\)")
  179.   (defconst vm-supported-groupings-alist
  180. !   '(("arrival-time") ("subject") ("author") ("recipient") ("date-sent")))
  181.   (defconst vm-total-count 0)
  182.   (defconst vm-new-count 0)
  183. ***************
  184. *** 413,417 ****
  185.   
  186.   ;; macros and functions dealing with accessing messages struct fields
  187. ! (defun vm-make-message () (make-vector 20 nil))
  188.   
  189.   ;; where message begins (From_ line)
  190. --- 416,420 ----
  191.   
  192.   ;; macros and functions dealing with accessing messages struct fields
  193. ! (defun vm-make-message () (make-vector 21 nil))
  194.   
  195.   ;; where message begins (From_ line)
  196. ***************
  197. *** 461,464 ****
  198. --- 464,468 ----
  199.   (defmacro vm-su-start-of (message) (list 'aref message 18))
  200.   (defmacro vm-su-end-of (message) (list 'aref message 19))
  201. + (defmacro vm-to-of (message) (list 'aref message 20))
  202.   
  203.   (defmacro vm-set-start-of (message start) (list 'aset message 0 start))
  204. ***************
  205. *** 482,485 ****
  206. --- 486,490 ----
  207.   (defmacro vm-set-su-start-of (message start) (list 'aset message 18 start))
  208.   (defmacro vm-set-su-end-of (message end) (list 'aset message 19 end))
  209. + (defmacro vm-set-to-of (message end) (list 'aset message 20 end))
  210.   
  211.   (defun vm-text-end-of (message)
  212. *** vm.texinfo.orig    Mon Jul 24 10:50:23 1989
  213. --- vm.texinfo    Sun Aug 20 19:10:32 1989
  214. ***************
  215. *** 713,716 ****
  216. --- 713,720 ----
  217.   @item author
  218.   Messages with the same author are grouped together.
  219. + @item recipient
  220. + Messages to the same primary recipient are grouped together. The primary
  221. + recipient is the first addressee in the To, Apparently-To, or CC fields
  222. + (in that order of preference).
  223.   @item date-sent
  224.   Messages sent on the same day are grouped together.
  225. ***************
  226. *** 778,781 ****
  227. --- 782,786 ----
  228.      n - message number
  229.      s - message subject
  230. +    t - primary recipient's address
  231.      w - day of the week message sent
  232.      y - year message sent
  233.