Mercurial > hg > xemacs-beta

diff lisp/vm/vm-page.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents 441bb1e64a06
children c53a95d3c46d
line wrap: on
line diff
--- a/lisp/vm/vm-page.el	Mon Aug 13 08:51:58 2007 +0200
+++ b/lisp/vm/vm-page.el	Mon Aug 13 08:52:29 2007 +0200
@@ -412,7 +412,7 @@
 	  (progn
 	    (goto-char (match-beginning 0))
 	    (vm-match-header)
-	    (setq h (vm-matched-header))
+	    (setq h (concat "X-Face: " (vm-matched-header-contents)))
 	    (setq g (intern h vm-xface-cache))
 	    (if (boundp g)
 		(setq g (symbol-value g))
@@ -535,6 +535,7 @@
    ;; at this point the current buffer is the presentation buffer
    ;; if we're using one for this message.
 
+   (vm-unbury-buffer (current-buffer))
    (vm-energize-urls-in-message-region)
    (vm-highlight-headers-maybe)
    (vm-energize-headers-and-xfaces)