Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnspool.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children 0293115a14e9
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
463 (save-excursion 463 (save-excursion
464 (set-buffer (get-buffer-create " *nnspool work*")) 464 (set-buffer (get-buffer-create " *nnspool work*"))
465 (buffer-disable-undo (current-buffer)) 465 (buffer-disable-undo (current-buffer))
466 (erase-buffer) 466 (erase-buffer)
467 (condition-case () 467 (condition-case ()
468 (call-process "grep" nil t nil id nnspool-history-file) 468 (call-process "grep" nil t nil (regexp-quote id) nnspool-history-file)
469 (error nil)) 469 (error nil))
470 (goto-char (point-min)) 470 (goto-char (point-min))
471 (prog1 471 (prog1
472 (if (looking-at "<[^>]+>[ \t]+[-0-9~]+[ \t]+\\([^ /\t\n]+\\)/\\([0-9]+\\)[ \t\n]") 472 (if (looking-at "<[^>]+>[ \t]+[-0-9~]+[ \t]+\\([^ /\t\n]+\\)/\\([0-9]+\\)[ \t\n]")
473 (cons (match-string 1) (string-to-int (match-string 2)))) 473 (cons (match-string 1) (string-to-int (match-string 2))))