Mercurial > emacs

comparison lisp/gnus/nnspool.el @ 62907:88db2adda4b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-339 Merge from gnus--rel--5.10 Patches applied: * gnus--rel--5.10 (patch 76) - Update from CVS 2005-05-30 Reiner Steib <Reiner.Steib@gmx.de> * lisp/gnus/gnus-agent.el (gnus-agent-regenerate-group) (gnus-agent-fetch-articles): Replace `string-to-int' by `string-to-number'. * lisp/gnus/gnus-art.el (gnus-button-fetch-group): Ditto. * lisp/gnus/gnus-cache.el (gnus-cache-generate-active) (gnus-cache-articles-in-group): Ditto. * lisp/gnus/gnus-group.el (gnus-group-set-current-level) (gnus-group-insert-group-line): Ditto. * lisp/gnus/gnus-score.el (gnus-score-set-expunge-below) (gnus-score-set-mark-below, gnus-summary-score-effect) (gnus-summary-score-entry): Ditto. * lisp/gnus/gnus-soup.el (gnus-soup-send-packet, gnus-soup-parse-areas) (gnus-soup-pack): Ditto. * lisp/gnus/gnus-spec.el (gnus-xmas-format): Ditto. * lisp/gnus/gnus-start.el (gnus-newsrc-to-gnus-format): Ditto. * lisp/gnus/gnus-sum.el (gnus-create-xref-hashtb): Ditto. * lisp/gnus/gnus-uu.el (gnus-uu-expand-numbers): Ditto. * lisp/gnus/nnbabyl.el (nnbabyl-article-group-number): Ditto. * lisp/gnus/nndb.el (nndb-get-remote-expire-response): Ditto. * lisp/gnus/nndiary.el (nndiary-parse-schedule-value) (nndiary-string-to-number, nndiary-request-replace-article) (nndiary-request-article): Ditto. * lisp/gnus/nndoc.el (nndoc-rnews-body-end, nndoc-mbox-body-end): Ditto. * lisp/gnus/nndraft.el (nndraft-articles, nndraft-request-group): Ditto. * lisp/gnus/nneething.el (nneething-make-head): Ditto. * lisp/gnus/nnfolder.el (nnfolder-request-article) (nnfolder-retrieve-headers): Ditto. * lisp/gnus/nnheader.el (nnheader-file-to-number): Ditto. * lisp/gnus/nnkiboze.el (nnkiboze-request-article): Ditto. * lisp/gnus/nnmail.el (nnmail-process-unix-mail-format) (nnmail-process-babyl-mail-format): Ditto. * lisp/gnus/nnmbox.el (nnmbox-read-mbox, nnmbox-article-group-number): Ditto. * lisp/gnus/nnmh.el (nnmh-update-gnus-unreads, nnmh-active-number) (nnmh-request-create-group, nnmh-request-list-1) (nnmh-request-group, nnmh-request-article): Ditto. * lisp/gnus/nnml.el (nnml-request-replace-article, nnml-request-article): Ditto. * lisp/gnus/nnrss.el (nnrss-find-rss-via-syndic8): Ditto. * lisp/gnus/nnsoup.el (nnsoup-make-active): Ditto. * lisp/gnus/nnspool.el (nnspool-find-id, nnspool-request-group): Ditto. * lisp/gnus/nntp.el (nntp-find-group-and-number) (nntp-retrieve-headers-with-xover): Ditto. * lisp/gnus/pgg-gpg.el (pgg-gpg-snarf-keys-region): Ditto. * lisp/gnus/pgg-parse.el (pgg-read-body, pgg-read-bytes) (pgg-format-key-identifier): Ditto. * lisp/gnus/pop3.el (pop3-last, pop3-stat): Ditto. * lisp/gnus/qp.el (quoted-printable-decode-region): Ditto. * lisp/gnus/spam-report.el (spam-report-url-ping-mm-url): Use format instead of concat.
author Miles Bader <miles@gnu.org>
date Mon, 30 May 2005 17:13:58 +0000
parents 55829134ac17
children 18a818a2ee7c 01137c1fdbe9
comparison
equal deleted inserted replaced
62906:9736cb0522cd 62907:88db2adda4b7
246 t) 246 t)
247 ;; Yes, completely empty spool directories *are* possible. 247 ;; Yes, completely empty spool directories *are* possible.
248 ;; Fix by Sudish Joseph <joseph@cis.ohio-state.edu> 248 ;; Fix by Sudish Joseph <joseph@cis.ohio-state.edu>
249 (when (setq dir (directory-files pathname nil "^[0-9]+$" t)) 249 (when (setq dir (directory-files pathname nil "^[0-9]+$" t))
250 (setq dir 250 (setq dir
251 (sort (mapcar (lambda (name) (string-to-int name)) dir) '<))) 251 (sort (mapcar (lambda (name) (string-to-number name)) dir) '<)))
252 (if dir 252 (if dir
253 (nnheader-insert 253 (nnheader-insert
254 "211 %d %d %d %s\n" (length dir) (car dir) 254 "211 %d %d %d %s\n" (length dir) (car dir)
255 (progn (while (cdr dir) (setq dir (cdr dir))) (car dir)) 255 (progn (while (cdr dir) (setq dir (cdr dir))) (car dir))
256 group) 256 group)
438 (ignore-errors 438 (ignore-errors
439 (call-process "grep" nil t nil (regexp-quote id) nnspool-history-file)) 439 (call-process "grep" nil t nil (regexp-quote id) nnspool-history-file))
440 (goto-char (point-min)) 440 (goto-char (point-min))
441 (prog1 441 (prog1
442 (when (looking-at "<[^>]+>[ \t]+[-0-9~]+[ \t]+\\([^ /\t\n]+\\)/\\([0-9]+\\)[ \t\n]") 442 (when (looking-at "<[^>]+>[ \t]+[-0-9~]+[ \t]+\\([^ /\t\n]+\\)/\\([0-9]+\\)[ \t\n]")
443 (cons (match-string 1) (string-to-int (match-string 2)))) 443 (cons (match-string 1) (string-to-number (match-string 2))))
444 (kill-buffer (current-buffer))))) 444 (kill-buffer (current-buffer)))))
445 445
446 (defun nnspool-find-file (file) 446 (defun nnspool-find-file (file)
447 "Insert FILE in server buffer safely." 447 "Insert FILE in server buffer safely."
448 (set-buffer nntp-server-buffer) 448 (set-buffer nntp-server-buffer)