projects
/
elisp
/
gnus.git-
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
fea860b
)
Synch with Oort Gnus.
author
yamaoka
<yamaoka>
Tue, 19 Nov 2002 10:26:31 +0000
(10:26 +0000)
committer
yamaoka
<yamaoka>
Tue, 19 Nov 2002 10:26:31 +0000
(10:26 +0000)
lisp/ChangeLog
patch
|
blob
|
history
lisp/gnus-sum.el
patch
|
blob
|
history
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.
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))))))
(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")
(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)
(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."
(defun gnus-summary-stop-page-breaking ()
"Stop page breaking in the current article."