From 40ff6b1c7d239fd3d38f0ae89bfad255c1d6f8f6 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 19 Nov 2002 10:26:31 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 6 ++++++ lisp/gnus-sum.el | 7 +++++-- 2 files changed, 11 insertions(+), 2 deletions(-) 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 + + * 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 * 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." -- 1.7.10.4