Synch with Oort Gnus.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b54157c..9f74389 100644 (file)
--- 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 (file)
--- 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."