Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-soup.el @ 169:15872534500d r20-3b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b11
author cvs
date Mon, 13 Aug 2007 09:46:53 +0200
parents fe104dbd9147
children
comparison
equal deleted inserted replaced
168:9851d5c6556e 169:15872534500d
354 (concat "cd " dir " ; " packer))) 354 (concat "cd " dir " ; " packer)))
355 (progn 355 (progn
356 (call-process shell-file-name nil nil nil shell-command-switch 356 (call-process shell-file-name nil nil nil shell-command-switch
357 (concat "cd " dir " ; rm " files)) 357 (concat "cd " dir " ; rm " files))
358 (gnus-message 4 "Packing...done" packer)) 358 (gnus-message 4 "Packing...done" packer))
359 (error "Couldn't pack packet.")))) 359 (error "Couldn't pack packet"))))
360 360
361 (defun gnus-soup-parse-areas (file) 361 (defun gnus-soup-parse-areas (file)
362 "Parse soup area file FILE. 362 "Parse soup area file FILE.
363 The result is a of vectors, each containing one entry from the AREA file. 363 The result is a of vectors, each containing one entry from the AREA file.
364 The vector contain five strings, 364 The vector contain five strings,
519 (buffer-disable-undo tmp-buf) 519 (buffer-disable-undo tmp-buf)
520 (set-buffer msg-buf) 520 (set-buffer msg-buf)
521 (goto-char (point-min)) 521 (goto-char (point-min))
522 (while (not (eobp)) 522 (while (not (eobp))
523 (unless (looking-at "#! *rnews +\\([0-9]+\\)") 523 (unless (looking-at "#! *rnews +\\([0-9]+\\)")
524 (error "Bad header.")) 524 (error "Bad header"))
525 (forward-line 1) 525 (forward-line 1)
526 (setq beg (point) 526 (setq beg (point)
527 end (+ (point) (string-to-int 527 end (+ (point) (string-to-int
528 (buffer-substring 528 (buffer-substring
529 (match-beginning 1) (match-end 1))))) 529 (match-beginning 1) (match-end 1)))))