Make Gnus work for Emacs 22 and XEmacs.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 1fac9cd37c563a31ea859a70ff8b518bc9c7ebdc..bfccc8c5f6f6ec53a8042485de70b02c374b78c3 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,10 @@
+2010-09-20  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-html.el (gnus-html-image-fetched): Pass arg to kill-buffer.
+
+       * gnus-sum.el (gnus-summary-update-mark): Replace subst-char-in-string
+       by mm-subst-char-in-string.
+
 2010-09-19  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * nnimap.el (nnimap-wait-for-connection): Avoid a race condition while

diff --git a/lisp/gnus/gnus-html.el b/lisp/gnus/gnus-html.el
index 819a6d6f31a3abe883e6e37713469d61480ae68c..78bb7ca18b533000a205ab04e51f998dd448223c 100644 (file)
--- a/lisp/gnus/gnus-html.el
+++ b/lisp/gnus/gnus-html.el
@@ -339,7 +339,7 @@ fit these criteria."
     (when (search-forward "\n\n" nil t)
       ;; Write region (image data) silently
       (write-region (point) (point-max) file nil 1)
-      (kill-buffer)
+      (kill-buffer (current-buffer))
       (when (and (buffer-live-p buffer)
                 ;; If the `image' has no marker, do not replace anything
                 (cadr image)

diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index c35cb2584c5555e8b1a385146cf5de517bda36b4..d0c50c8fec0ae663138f7285275c0f099c8a2b35 100644 (file)
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -10769,8 +10769,9 @@ If NO-EXPIRE, auto-expiry will be inhibited."
        (goto-char (+ forward (point)))
        ;; Replace the old mark with the new mark.
         (let ((to-insert
-               (subst-char-in-string (char-after) mark
-                                     (buffer-substring (point) (1+ (point))))))
+               (mm-subst-char-in-string
+               (char-after) mark
+               (buffer-substring (point) (1+ (point))))))
           (delete-region (point) (1+ (point)))
           (insert to-insert))
        ;; Optionally update the marks by some user rule.