2001-02-21 01:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* smiley.el (gnus-smiley-display): Don't do widening.

	* smiley-ems.el (gnus-smiley-display): Don't do widening. Smiley
	within body.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index efe9343..d96a66b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 2001-02-21 01:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
+       * smiley.el (gnus-smiley-display): Don't do widening.
+
+       * smiley-ems.el (gnus-smiley-display): Don't do widening. Smiley
+       within body.
+
        * gnus-msg.el (gnus-inews-do-gcc): Activate group anyway.
 
        * gnus-art.el (gnus-mime-display-multipart-alternative-as-mixed):

diff --git a/lisp/smiley-ems.el b/lisp/smiley-ems.el
index e4c23e8..8e0cae3 100644 (file)
--- a/lisp/smiley-ems.el
+++ b/lisp/smiley-ems.el
@@ -146,13 +146,10 @@ With arg, turn displaying on if and only if arg is positive."
 With arg, turn displaying on if and only if arg is positive."
   (interactive "P")
   (save-excursion
-    (set-buffer gnus-article-buffer)
-    (save-restriction
-      (widen)
-      (article-goto-body)
-      (smiley-region (point-min) (point-max))
-      (if (and (numberp arg) (<= arg 0))
-         (smiley-toggle-buffer arg)))))
+    (article-goto-body)
+    (smiley-region (point) (point-max))
+    (if (and (numberp arg) (<= arg 0))
+       (smiley-toggle-buffer arg))))
 
 (provide 'smiley)
 

diff --git a/lisp/smiley.el b/lisp/smiley.el
index 63a684e..c74d3ee 100644 (file)
--- a/lisp/smiley.el
+++ b/lisp/smiley.el
@@ -428,12 +428,9 @@ With arg, turn displaying on if and only if arg is positive."
 With arg, turn displaying on if and only if arg is positive."
   (interactive "P")
   (save-excursion
-    (set-buffer gnus-article-buffer)
-    (save-restriction
-      (widen)
-      (article-goto-body)
-      (let (buffer-read-only)
-       (smiley-toggle-buffer arg (current-buffer) (point) (point-max))))))
+    (article-goto-body)
+    (let (buffer-read-only)
+      (smiley-toggle-buffer arg (current-buffer) (point) (point-max)))))
 
 (provide 'smiley)