mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

nnml.el (nnml-save-nov): Remove some debugging-related messages.

Browse Source
This commit is contained in:
Lars Magne Ingebrigtsen 2010-09-06 23:54:07 +00:00 committed by Katsumi Yamaoka
parent 1099930585
commit 5edc8186ce
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/gnus/ChangeLog
View File

@ -1,3 +1,7 @@
2010-09-06 Lars Magne Ingebrigtsen <larsi@gnus.org>
* nnml.el (nnml-save-nov): Remove some debugging-related messages.
2010-09-06 Katsumi Yamaoka <yamaoka@jpl.org>
* pop3.el: Require cl when compiling.

8
lisp/gnus/nnml.el
View File

@ -784,7 +784,6 @@ article number. This function is called narrowed to an article."
(defvar nnml-incremental-nov-buffer-alist nil)
(defun nnml-save-incremental-nov ()
(message "nnml saving incremental nov...")
(save-excursion
(while nnml-incremental-nov-buffer-alist
(when (buffer-name (cdar nnml-incremental-nov-buffer-alist))
@ -795,8 +794,7 @@ article number. This function is called narrowed to an article."
(set-buffer-modified-p nil)
(kill-buffer (current-buffer)))
(setq nnml-incremental-nov-buffer-alist
(cdr nnml-incremental-nov-buffer-alist))))
(message "nnml saving incremental nov...done"))
(cdr nnml-incremental-nov-buffer-alist)))))
(defun nnml-open-incremental-nov (group)
(or (cdr (assoc group nnml-incremental-nov-buffer-alist))
@ -863,7 +861,6 @@ article number. This function is called narrowed to an article."
buffer)))
(defun nnml-save-nov ()
(message "nnml saving nov...")
(save-excursion
(while nnml-nov-buffer-alist
(when (buffer-name (cdar nnml-nov-buffer-alist))
@ -873,8 +870,7 @@ article number. This function is called narrowed to an article."
nnml-nov-buffer-file-name nil 'nomesg))
(set-buffer-modified-p nil)
(kill-buffer (current-buffer)))
(setq nnml-nov-buffer-alist (cdr nnml-nov-buffer-alist))))
(message "nnml saving nov...done"))
(setq nnml-nov-buffer-alist (cdr nnml-nov-buffer-alist)))))
;;;###autoload
(defun nnml-generate-nov-databases (&optional server)