vm-su-attachment-indicator([[# # # # # #] ["27" " 27" nil # # <<>> <-- babyl "30" # 0 (<15201\.42663\.686000\.977937@gargle\.gargle\.HOWL> ) t nil nil nil [... ... "7bit" nil nil nil nil # # # # nil <> <> nil nil nil] none # nil] [nil nil nil nil nil nil nil nil nil] ["9131" "Saturday" "28" "July" "2001" "09:45:48" "+0100" "Eike Ritter" "E.Ritter@cs.bham.ac.uk" "" nil "Re: Review form for FSTTCS " "^From:" nil nil "7" "2001072809:45:48" "Review form for FSTTCS" nil "<15201.42663.686000.977937@gargle.gargle.HOWL>" ("<15201.42663.686000.977937@gargle.gargle.HOWL>") nil nil nil nil nil] [nil t nil nil nil]]) (vm-decode-mime-encoded-words-in-string (vm-su-attachment-indicator vm-su-message)) (format "%s %s %s %s %s%s " (vm-decode-mime-encoded-words-in-string (vm-su-attribute-indicators vm-su-message)) (vm-truncate-string (vm-left-justify-string ... 17) 17) (vm-truncate-string (vm-left-justify-string ... 3) 3) (vm-right-justify-string (vm-decode-mime-encoded-words-in-string ...) 2) (vm-left-justify-string (vm-decode-mime-encoded-words-in-string ...) 5) (vm-decode-mime-encoded-words-in-string (vm-su-attachment-indicator vm-su-message))) (list (quote number) " " (quote mark) (format "%s %s %s %s %s%s " (vm-decode-mime-encoded-words-in-string ...) (vm-truncate-string ... 17) (vm-truncate-string ... 3) (vm-right-justify-string ... 2) (vm-left-justify-string ... 5) (vm-decode-mime-encoded-words-in-string ...)) (quote thread-indent) (format "\"%s\"\n" (vm-decode-mime-encoded-words-in-string ...))) eval((list (quote number) " " (quote mark) (format "%s %s %s %s %s%s " (vm-decode-mime-encoded-words-in-string ...) (vm-truncate-string ... 17) (vm-truncate-string ... 3) (vm-right-justify-string ... 2) (vm-left-justify-string ... 5) (vm-decode-mime-encoded-words-in-string ...)) (quote thread-indent) (format "\"%s\"\n" (vm-decode-mime-encoded-words-in-string ...)))) vm-summary-sprintf("%n %*%a %-17.17F %-3.3m %2d %-5S%P %I\"%s\"\n" [[# # # # # #] ["27" " 27" nil # # <<>> <-- babyl "30" # 0 (<15201\.42663\.686000\.977937@gargle\.gargle\.HOWL> ) t nil nil nil [... ... "7bit" nil nil nil nil # # # # nil <> <> nil nil nil] none # nil] [nil nil nil nil nil nil nil nil nil] ["9131" "Saturday" "28" "July" "2001" "09:45:48" "+0100" "Eike Ritter" "E.Ritter@cs.bham.ac.uk" "" nil "Re: Review form for FSTTCS " "^From:" nil nil "7" "2001072809:45:48" "Review form for FSTTCS" nil "<15201.42663.686000.977937@gargle.gargle.HOWL>" ("<15201.42663.686000.977937@gargle.gargle.HOWL>") nil nil nil nil nil] [nil t nil nil nil]] t) vm-su-summary([[# # # # # #] ["27" " 27" nil # # <<>> <-- babyl "30" # 0 (<15201\.42663\.686000\.977937@gargle\.gargle\.HOWL> ) t nil nil nil [... ... "7bit" nil nil nil nil # # # # nil <> <> nil nil nil] none # nil] [nil nil nil nil nil nil nil nil nil] ["9131" "Saturday" "28" "July" "2001" "09:45:48" "+0100" "Eike Ritter" "E.Ritter@cs.bham.ac.uk" "" nil "Re: Review form for FSTTCS " "^From:" nil nil "7" "2001072809:45:48" "Review form for FSTTCS" nil "<15201.42663.686000.977937@gargle.gargle.HOWL>" ("<15201.42663.686000.977937@gargle.gargle.HOWL>") nil nil nil nil nil] [nil t nil nil nil]]) vm-update-message-summary([[# # # # # #] ["27" " 27" nil # # <<>> <-- babyl "30" # 0 (<15201\.42663\.686000\.977937@gargle\.gargle\.HOWL> ) t nil nil nil [... ... "7bit" nil nil nil nil # # # # nil <> <> nil nil nil] none # nil] [nil nil nil nil nil nil nil nil nil] ["9131" "Saturday" "28" "July" "2001" "09:45:48" "+0100" "Eike Ritter" "E.Ritter@cs.bham.ac.uk" "" nil "Re: Review form for FSTTCS " "^From:" nil nil "7" "2001072809:45:48" "Review form for FSTTCS" nil "<15201.42663.686000.977937@gargle.gargle.HOWL>" ("<15201.42663.686000.977937@gargle.gargle.HOWL>") nil nil nil nil nil] [nil t nil nil nil]]) vm-update-summary-and-mode-line() vm-retrieve-marked-or-prefixed-messages(nil) vm-mime-action-on-all-attachments(nil #[(msg layout type file) "T\211\207" [attachments] 2] nil nil ([[# # # # # #] ["27" " 27" nil # # <<>> <-- babyl "30" # 0 ... t nil nil nil [... ... "7bit" nil nil nil nil # # # # nil <> <> nil nil nil] none # nil] [nil nil nil nil nil nil nil nil nil] ["9131" "Saturday" "28" "July" "2001" "09:45:48" "+0100" "Eike Ritter" "E.Ritter@cs.bham.ac.uk" "" nil "Re: Review form for FSTTCS " "^From:" nil nil "7" "2001072809:45:48" "Review form for FSTTCS" nil "<15201.42663.686000.977937@gargle.gargle.HOWL>" ... nil nil nil nil nil] [nil t nil nil nil]]) t) vm-su-attachment-indicator([[# # # # # #] ["27" " 27" nil # # <<>> <-- babyl "30" # 0 (<15201\.42663\.686000\.977937@gargle\.gargle\.HOWL> ) t nil nil nil [... ... "7bit" nil nil nil nil # # # # nil <> <> nil nil nil] none # nil] [nil nil nil nil nil nil nil nil nil] ["9131" "Saturday" "28" "July" "2001" "09:45:48" "+0100" "Eike Ritter" "E.Ritter@cs.bham.ac.uk" "" nil "Re: Review form for FSTTCS " "^From:" nil nil "7" "2001072809:45:48" "Review form for FSTTCS" nil "<15201.42663.686000.977937@gargle.gargle.HOWL>" ("<15201.42663.686000.977937@gargle.gargle.HOWL>") nil nil nil nil nil] [nil t nil nil nil]]) (vm-decode-mime-encoded-words-in-string (vm-su-attachment-indicator vm-su-message)) (format "%s %s %s %s %s%s " (vm-decode-mime-encoded-words-in-string (vm-su-attribute-indicators vm-su-message)) (vm-truncate-string (vm-left-justify-string ... 17) 17) (vm-truncate-string (vm-left-justify-string ... 3) 3) (vm-right-justify-string (vm-decode-mime-encoded-words-in-string ...) 2) (vm-left-justify-string (vm-decode-mime-encoded-words-in-string ...) 5) (vm-decode-mime-encoded-words-in-string (vm-su-attachment-indicator vm-su-message))) (list (quote number) " " (quote mark) (format "%s %s %s %s %s%s " (vm-decode-mime-encoded-words-in-string ...) (vm-truncate-string ... 17) (vm-truncate-string ... 3) (vm-right-justify-string ... 2) (vm-left-justify-string ... 5) (vm-decode-mime-encoded-words-in-string ...)) (quote thread-indent) (format "\"%s\"\n" (vm-decode-mime-encoded-words-in-string ...))) eval((list (quote number) " " (quote mark) (format "%s %s %s %s %s%s " (vm-decode-mime-encoded-words-in-string ...) (vm-truncate-string ... 17) (vm-truncate-string ... 3) (vm-right-justify-string ... 2) (vm-left-justify-string ... 5) (vm-decode-mime-encoded-words-in-string ...)) (quote thread-indent) (format "\"%s\"\n" (vm-decode-mime-encoded-words-in-string ...)))) vm-summary-sprintf("%n %*%a %-17.17F %-3.3m %2d %-5S%P %I\"%s\"\n" [[# # # # # #] ["27" " 27" nil # # <<>> <-- babyl "30" # 0 (<15201\.42663\.686000\.977937@gargle\.gargle\.HOWL> ) t nil nil nil [... ... "7bit" nil nil nil nil # # # # nil <> <> nil nil nil] none # nil] [nil nil nil nil nil nil nil nil nil] ["9131" "Saturday" "28" "July" "2001" "09:45:48" "+0100" "Eike Ritter" "E.Ritter@cs.bham.ac.uk" "" nil "Re: Review form for FSTTCS " "^From:" nil nil "7" "2001072809:45:48" "Review form for FSTTCS" nil "<15201.42663.686000.977937@gargle.gargle.HOWL>" ("<15201.42663.686000.977937@gargle.gargle.HOWL>") nil nil nil nil nil] [nil t nil nil nil]] t) vm-su-summary([[# # # # # #] ["27" " 27" nil # # <<>> <-- babyl "30" # 0 (<15201\.42663\.686000\.977937@gargle\.gargle\.HOWL> ) t nil nil nil [... ... "7bit" nil nil nil nil # # # # nil <> <> nil nil nil] none # nil] [nil nil nil nil nil nil nil nil nil] ["9131" "Saturday" "28" "July" "2001" "09:45:48" "+0100" "Eike Ritter" "E.Ritter@cs.bham.ac.uk" "" nil "Re: Review form for FSTTCS " "^From:" nil nil "7" "2001072809:45:48" "Review form for FSTTCS" nil "<15201.42663.686000.977937@gargle.gargle.HOWL>" ("<15201.42663.686000.977937@gargle.gargle.HOWL>") nil nil nil nil nil] [nil t nil nil nil]]) vm-update-message-summary([[# # # # # #] ["27" " 27" nil # # <<>> <-- babyl "30" # 0 (<15201\.42663\.686000\.977937@gargle\.gargle\.HOWL> ) t nil nil nil [... ... "7bit" nil nil nil nil # # # # nil <> <> nil nil nil] none # nil] [nil nil nil nil nil nil nil nil nil] ["9131" "Saturday" "28" "July" "2001" "09:45:48" "+0100" "Eike Ritter" "E.Ritter@cs.bham.ac.uk" "" nil "Re: Review form for FSTTCS " "^From:" nil nil "7" "2001072809:45:48" "Review form for FSTTCS" nil "<15201.42663.686000.977937@gargle.gargle.HOWL>" ("<15201.42663.686000.977937@gargle.gargle.HOWL>") nil nil nil nil nil] [nil t nil nil nil]]) vm-update-summary-and-mode-line() vm-fix-my-summary(nil) call-interactively(vm-fix-my-summary t nil) execute-extended-command(nil) call-interactively(execute-extended-command nil nil)