[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r101498: Make Gnus work for Emacs 22
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r101498: Make Gnus work for Emacs 22 and XEmacs. |
Date: |
Mon, 20 Sep 2010 01:57:46 +0000 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 101498
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Mon 2010-09-20 01:57:46 +0000
message:
Make Gnus work for Emacs 22 and XEmacs.
modified:
lisp/gnus/ChangeLog
lisp/gnus/gnus-html.el
lisp/gnus/gnus-sum.el
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog 2010-09-20 01:20:32 +0000
+++ b/lisp/gnus/ChangeLog 2010-09-20 01:57:46 +0000
@@ -1,3 +1,10 @@
+2010-09-20 Katsumi Yamaoka <address@hidden>
+
+ * 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 <address@hidden>
* nnimap.el (nnimap-wait-for-connection): Avoid a race condition while
=== modified file 'lisp/gnus/gnus-html.el'
--- a/lisp/gnus/gnus-html.el 2010-09-20 00:36:54 +0000
+++ b/lisp/gnus/gnus-html.el 2010-09-20 01:57:46 +0000
@@ -339,7 +339,7 @@
(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)
=== modified file 'lisp/gnus/gnus-sum.el'
--- a/lisp/gnus/gnus-sum.el 2010-09-20 00:36:54 +0000
+++ b/lisp/gnus/gnus-sum.el 2010-09-20 01:57:46 +0000
@@ -10769,8 +10769,9 @@
(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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r101498: Make Gnus work for Emacs 22 and XEmacs.,
Katsumi Yamaoka <=