vm-su-attachment-indicator([[# # nil # # #] ["3534" "3534" nil # # <<>> <-- From_ "10573" # 0 (<4C3B6A8A\.80105@gmx\.de> <87wrt0e81n\.fsf@telefonica\.net> <62E9699C07054418AB66F9C5FCB54E5C@us\.oracle\.com> ) nil nil nil nil nil nil # imap] [nil nil nil nil nil nil nil nil nil] ["5750" "Wednesday" "14" "July" "2010" "07:03:25" "-0700" "Drew Adams" "drew.adams@oracle.com" "" "0" "RE: Emacs learning curve" nil nil nil "7" "2010071415:03:25" "Emacs learning curve" nil "" ("<4C3B6A8A.80105@gmx.de>" "<87wrt0e81n.fsf@telefonica.net>" "<62E9699C07054418AB66F9C5FCB54E5C@us.oracle.com>" "") nil t "29161" "1217243146" nil] [nil t ("nonjunk") 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" [[# # nil # # #] ["3534" "3534" nil # # <<>> <-- From_ "10573" # 0 (<4C3B6A8A\.80105@gmx\.de> <87wrt0e81n\.fsf@telefonica\.net> <62E9699C07054418AB66F9C5FCB54E5C@us\.oracle\.com> ) nil nil nil nil nil nil # imap] [nil nil nil nil nil nil nil nil nil] ["5750" "Wednesday" "14" "July" "2010" "07:03:25" "-0700" "Drew Adams" "drew.adams@oracle.com" "" "0" "RE: Emacs learning curve" nil nil nil "7" "2010071415:03:25" "Emacs learning curve" nil "" ("<4C3B6A8A.80105@gmx.de>" "<87wrt0e81n.fsf@telefonica.net>" "<62E9699C07054418AB66F9C5FCB54E5C@us.oracle.com>" "") nil t "29161" "1217243146" nil] [nil t ("nonjunk") nil nil]] t) vm-su-summary([[# # nil # # #] ["3534" "3534" nil # # <<>> <-- From_ "10573" # 0 (<4C3B6A8A\.80105@gmx\.de> <87wrt0e81n\.fsf@telefonica\.net> <62E9699C07054418AB66F9C5FCB54E5C@us\.oracle\.com> ) nil nil nil nil nil nil # imap] [nil nil nil nil nil nil nil nil nil] ["5750" "Wednesday" "14" "July" "2010" "07:03:25" "-0700" "Drew Adams" "drew.adams@oracle.com" "" "0" "RE: Emacs learning curve" nil nil nil "7" "2010071415:03:25" "Emacs learning curve" nil "" ("<4C3B6A8A.80105@gmx.de>" "<87wrt0e81n.fsf@telefonica.net>" "<62E9699C07054418AB66F9C5FCB54E5C@us.oracle.com>" "") nil t "29161" "1217243146" nil] [nil t ("nonjunk") nil nil]]) vm-update-message-summary([[# # nil # # #] ["3534" "3534" nil # # <<>> <-- From_ "10573" # 0 (<4C3B6A8A\.80105@gmx\.de> <87wrt0e81n\.fsf@telefonica\.net> <62E9699C07054418AB66F9C5FCB54E5C@us\.oracle\.com> ) nil nil nil nil nil nil # imap] [nil nil nil nil nil nil nil nil nil] ["5750" "Wednesday" "14" "July" "2010" "07:03:25" "-0700" "Drew Adams" "drew.adams@oracle.com" "" "0" "RE: Emacs learning curve" nil nil nil "7" "2010071415:03:25" "Emacs learning curve" nil "" ("<4C3B6A8A.80105@gmx.de>" "<87wrt0e81n.fsf@telefonica.net>" "<62E9699C07054418AB66F9C5FCB54E5C@us.oracle.com>" "") nil t "29161" "1217243146" nil] [nil t ("nonjunk") 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 ([[# # nil # # #] ["3534" "3534" nil # # <<>> <-- From_ "10573" # 0 ... nil nil nil nil nil nil # imap] [nil nil nil nil nil nil nil nil nil] ["5750" "Wednesday" "14" "July" "2010" "07:03:25" "-0700" "Drew Adams" "drew.adams@oracle.com" "" "0" "RE: Emacs learning curve" nil nil nil "7" "2010071415:03:25" "Emacs learning curve" nil "" ... nil t "29161" "1217243146" nil] [nil t ... nil nil]]) t) vm-su-attachment-indicator([[# # nil # # #] ["3534" "3534" nil # # <<>> <-- From_ "10573" # 0 (<4C3B6A8A\.80105@gmx\.de> <87wrt0e81n\.fsf@telefonica\.net> <62E9699C07054418AB66F9C5FCB54E5C@us\.oracle\.com> ) nil nil nil nil nil nil # imap] [nil nil nil nil nil nil nil nil nil] ["5750" "Wednesday" "14" "July" "2010" "07:03:25" "-0700" "Drew Adams" "drew.adams@oracle.com" "" "0" "RE: Emacs learning curve" nil nil nil "7" "2010071415:03:25" "Emacs learning curve" nil "" ("<4C3B6A8A.80105@gmx.de>" "<87wrt0e81n.fsf@telefonica.net>" "<62E9699C07054418AB66F9C5FCB54E5C@us.oracle.com>" "") nil t "29161" "1217243146" nil] [nil t ("nonjunk") 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" [[# # nil # # #] ["3534" "3534" nil # # <<>> <-- From_ "10573" # 0 (<4C3B6A8A\.80105@gmx\.de> <87wrt0e81n\.fsf@telefonica\.net> <62E9699C07054418AB66F9C5FCB54E5C@us\.oracle\.com> ) nil nil nil nil nil nil # imap] [nil nil nil nil nil nil nil nil nil] ["5750" "Wednesday" "14" "July" "2010" "07:03:25" "-0700" "Drew Adams" "drew.adams@oracle.com" "" "0" "RE: Emacs learning curve" nil nil nil "7" "2010071415:03:25" "Emacs learning curve" nil "" ("<4C3B6A8A.80105@gmx.de>" "<87wrt0e81n.fsf@telefonica.net>" "<62E9699C07054418AB66F9C5FCB54E5C@us.oracle.com>" "") nil t "29161" "1217243146" nil] [nil t ("nonjunk") nil nil]] t) vm-su-summary([[# # nil # # #] ["3534" "3534" nil # # <<>> <-- From_ "10573" # 0 (<4C3B6A8A\.80105@gmx\.de> <87wrt0e81n\.fsf@telefonica\.net> <62E9699C07054418AB66F9C5FCB54E5C@us\.oracle\.com> ) nil nil nil nil nil nil # imap] [nil nil nil nil nil nil nil nil nil] ["5750" "Wednesday" "14" "July" "2010" "07:03:25" "-0700" "Drew Adams" "drew.adams@oracle.com" "" "0" "RE: Emacs learning curve" nil nil nil "7" "2010071415:03:25" "Emacs learning curve" nil "" ("<4C3B6A8A.80105@gmx.de>" "<87wrt0e81n.fsf@telefonica.net>" "<62E9699C07054418AB66F9C5FCB54E5C@us.oracle.com>" "") nil t "29161" "1217243146" nil] [nil t ("nonjunk") nil nil]]) vm-update-message-summary([[# # nil # # #] ["3534" "3534" nil # # <<>> <-- From_ "10573" # 0 (<4C3B6A8A\.80105@gmx\.de> <87wrt0e81n\.fsf@telefonica\.net> <62E9699C07054418AB66F9C5FCB54E5C@us\.oracle\.com> ) nil nil nil nil nil nil # imap] [nil nil nil nil nil nil nil nil nil] ["5750" "Wednesday" "14" "July" "2010" "07:03:25" "-0700" "Drew Adams" "drew.adams@oracle.com" "" "0" "RE: Emacs learning curve" nil nil nil "7" "2010071415:03:25" "Emacs learning curve" nil "" ("<4C3B6A8A.80105@gmx.de>" "<87wrt0e81n.fsf@telefonica.net>" "<62E9699C07054418AB66F9C5FCB54E5C@us.oracle.com>" "") nil t "29161" "1217243146" nil] [nil t ("nonjunk") nil nil]]) vm-update-summary-and-mode-line() byte-code(...) vm("imap-ssl:mailhost.cs.bham.ac.uk:993:test-threads:login:udrimap:*" nil imap) imap("imap-ssl:mailhost.cs.bham.ac.uk:993:test-threads:login:udrimap:*" nil) call-interactively(imap t nil) execute-extended-command(nil) call-interactively(execute-extended-command nil nil)