Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-digest.el @ 26:441bb1e64a06 r19-15b96

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b96
author cvs
date Mon, 13 Aug 2007 08:51:32 +0200
parents 4103f0995bd7
children ec9a17fef872
comparison
equal deleted inserted replaced
25:383a494979f8 26:441bb1e64a06
532 (if (equal digest-type "guess") 532 (if (equal digest-type "guess")
533 (progn 533 (progn
534 (setq digest-type (vm-guess-digest-type m)) 534 (setq digest-type (vm-guess-digest-type m))
535 (if (null digest-type) 535 (if (null digest-type)
536 (error "Couldn't guess digest type.")))) 536 (error "Couldn't guess digest type."))))
537 (vm-unsaved-message "Bursting %s digest..." digest-type) 537 (message "Bursting %s digest..." digest-type)
538 (cond 538 (cond
539 ((cond ((equal digest-type "mime") 539 ((cond ((equal digest-type "mime")
540 (vm-mime-burst-message m)) 540 (vm-mime-burst-message m))
541 ((equal digest-type "rfc934") 541 ((equal digest-type "rfc934")
542 (vm-rfc934-burst-message m)) 542 (vm-rfc934-burst-message m))