diff options
author | Erik Naggum <erik@naggum.no> | 1996-04-03 18:22:06 +0000 |
---|---|---|
committer | Erik Naggum <erik@naggum.no> | 1996-04-03 18:22:06 +0000 |
commit | 0c58ae64c51f3d1a2492cebabc0750383ca8202b (patch) | |
tree | c0f6ffcf4c29973e1f22987470b94790fd2e75cc | |
parent | 2c575859ee994602c0790be883f59bd3135e2bfe (diff) | |
download | emacs-0c58ae64c51f3d1a2492cebabc0750383ca8202b.tar.gz |
(gnus-summary-prepare-threads): Call `gnus-message' instead of `message'.
-rw-r--r-- | lisp/gnus.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/gnus.el b/lisp/gnus.el index a2c2f445ff0..c72e407c2e7 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -6502,7 +6502,7 @@ Unscored articles will be counted as having a score of zero." "Prepare summary buffer from THREADS and indentation LEVEL. THREADS is either a list of `(PARENT [(CHILD1 [(GRANDCHILD ...]...) ...])' or a straight list of headers." - (message "Generating summary...") + (gnus-message 5 "Generating summary...") (let ((level 0) thread header number subject stack state gnus-tmp-gathered) (if (vectorp (car threads)) @@ -6628,7 +6628,7 @@ or a straight list of headers." (setq stack (cons (cons (max 0 level) (nthcdr 1 thread)) stack))) (setq level (1+ level)) (setq threads (cdr (car thread)))))) - (message "Generating summary...done")) + (gnus-message 5 "Generating summary...done")) |