Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnml.el @ 22:8fc7fe29b841 r19-15b94

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b94
author cvs
date Mon, 13 Aug 2007 08:50:29 +0200
parents d95e72db5c07
children 4103f0995bd7
comparison
equal deleted inserted replaced
21:b88636d63495 22:8fc7fe29b841
316 (funcall nnmail-delete-file-function 316 (funcall nnmail-delete-file-function
317 (concat nnml-current-directory 317 (concat nnml-current-directory
318 (int-to-string article))) 318 (int-to-string article)))
319 (file-error nil)) 319 (file-error nil))
320 (nnml-nov-delete-article group article) 320 (nnml-nov-delete-article group article)
321 (and last (nnml-save-nov)))) 321 (when last
322 (nnml-save-nov)
323 (nnmail-save-active nnml-group-alist nnml-active-file))))
322 result)) 324 result))
323 325
324 (deffoo nnml-request-accept-article (group &optional server last) 326 (deffoo nnml-request-accept-article (group &optional server last)
325 (nnml-possibly-change-directory group server) 327 (nnml-possibly-change-directory group server)
326 (nnmail-check-syntax) 328 (nnmail-check-syntax)
772 (kill-buffer (current-buffer)))))) 774 (kill-buffer (current-buffer))))))
773 775
774 (defun nnml-nov-delete-article (group article) 776 (defun nnml-nov-delete-article (group article)
775 (save-excursion 777 (save-excursion
776 (set-buffer (nnml-open-nov group)) 778 (set-buffer (nnml-open-nov group))
777 (goto-char (point-min)) 779 (when (nnheader-find-nov-line article)
778 (when (re-search-forward (concat "^" (int-to-string article) "\t") nil t) 780 (delete-region (point) (progn (forward-line 1) (point)))
779 (delete-region (match-beginning 0) (progn (forward-line 1) (point)))) 781 (when (bobp)
782 (let ((active (cadr (assoc group nnml-group-alist)))
783 num)
784 (when active
785 (if (eobp)
786 (setf (car active) (1+ (cdr active)))
787 (when (and (setq num (ignore-errors (read (current-buffer))))
788 (numberp num))
789 (setf (car active) num)))))))
780 t)) 790 t))
781 791
782 (provide 'nnml) 792 (provide 'nnml)
783 793
784 ;;; nnml.el ends here 794 ;;; nnml.el ends here