Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-summary.el @ 118:7d55a9ba150c r20-1b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b11
author cvs
date Mon, 13 Aug 2007 09:24:17 +0200
parents 360340f9fd5f
children cca96a509cfe
comparison
equal deleted inserted replaced
117:578fd4947a72 118:7d55a9ba150c
928 928
929 (defun vm-su-message-id (m) 929 (defun vm-su-message-id (m)
930 (or (vm-message-id-of m) 930 (or (vm-message-id-of m)
931 (vm-set-message-id-of 931 (vm-set-message-id-of
932 m 932 m
933 (or (vm-get-header-contents m "Message-Id:") 933 (or (let ((id (vm-get-header-contents m "Message-Id:")))
934 (and id (car (vm-parse id "[^<]*\\(<[^>]+>\\)"))))
934 ;; try running md5 on the message body to produce an ID 935 ;; try running md5 on the message body to produce an ID
935 ;; better than nothing. 936 ;; better than nothing.
936 (save-excursion 937 (save-excursion
937 (set-buffer (vm-buffer-of (vm-real-message-of m))) 938 (set-buffer (vm-buffer-of (vm-real-message-of m)))
938 (save-restriction 939 (save-restriction