X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fgnus-ems.el;h=9410b922960a62d737f6465fc1e8f6f1307aef1c;hp=5377ee1692a32afeaef8b0f35a06eb72fdf4014a;hb=2312bb41838b266b5632a0d1ab5d1ba0b5c67cbe;hpb=1dbfbe5d3c18b822246f791d6347750b2ab9744b

diff --git a/lisp/gnus-ems.el b/lisp/gnus-ems.el
index 5377ee169..9410b9229 100644
--- a/lisp/gnus-ems.el
+++ b/lisp/gnus-ems.el
@@ -156,9 +156,9 @@
        (boundp 'mark-active)
        mark-active))
 
-(defun gnus-add-minor-mode (mode name map)
-  (if (fboundp 'add-minor-mode)
-      (add-minor-mode mode name map)
+(if (fboundp 'add-minor-mode)
+    (defalias 'gnus-add-minor-mode 'add-minor-mode)
+  (defun gnus-add-minor-mode (mode name map)
     (set (make-local-variable mode) t)
     (unless (assq mode minor-mode-alist)
       (push `(,mode ,name) minor-mode-alist))
@@ -249,7 +249,7 @@ for XEmacs."
       (when image
 	(goto-char (point-min))
 	(re-search-forward "^From:" nil 'move)
-	(insert-image image " ")))))
+	(insert-image image)))))
 
 (provide 'gnus-ems)