From: yamaoka <yamaoka>
Date: Tue, 19 Nov 2002 10:26:31 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_10-00-quimby~87
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=40ff6b1c7d239fd3d38f0ae89bfad255c1d6f8f6;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b54157c..9f74389 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2002-11-19  Simon Josefsson  <jas@extundo.com>
+
+	* gnus-sum.el (gnus-summary-morse-message): Load
+	morse.el (unmorse-region not autoloaded in Emacs 20 nor XEmacs).
+	(unmorse-region): Autoload it instead.
+
 2002-11-18  Simon Josefsson  <jas@extundo.com>
 
 	* gnus-sum.el (gnus-summary-morse-message): New function.
diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 8d51b82..1652bcb 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -8561,6 +8561,10 @@ forward."
 	  (message-caesar-buffer-body arg)
 	  (set-window-start (get-buffer-window (current-buffer)) start))))))
 
+(autoload 'unmorse-region "morse"
+  "Convert morse coded text in region to ordinary ASCII text."
+  t)
+
 (defun gnus-summary-morse-message (&optional arg)
   "Morse decode the current article."
   (interactive "P")
@@ -8577,8 +8581,7 @@ forward."
 	    (while (re-search-forward "·" end t)
 	      (replace-match "."))
 	    (unmorse-region start end)
-	    (set-window-start (get-buffer-window (current-buffer)) 
-			      start)))))))
+	    (set-window-start (get-buffer-window (current-buffer)) start)))))))
 
 (defun gnus-summary-stop-page-breaking ()
   "Stop page breaking in the current article."