Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-digest.el @ 102:a145efe76779 r20-1b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b3
author cvs
date Mon, 13 Aug 2007 09:15:49 +0200
parents 4be1180a9e89
children 360340f9fd5f
comparison
equal deleted inserted replaced
101:a0ec055d74dd 102:a145efe76779
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))