Mercurial > emacs

comparison lisp/gnus/nnsoup.el @ 48588:52d99cc2e9e3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Typos.
author ShengHuo ZHU <zsh@cs.rochester.edu>
date Fri, 29 Nov 2002 15:57:52 +0000
parents be3ff3e3e5b0
children eb2699620e9c
comparison
equal deleted inserted replaced
48587:0af9ad587767 48588:52d99cc2e9e3
1 ;;; nnsoup.el --- SOUP access for Gnus 1 ;;; nnsoup.el --- SOUP access for Gnus
2 2
3 ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000 3 ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2002
4 ;; Free Software Foundation, Inc. 4 ;; Free Software Foundation, Inc.
5 5
6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> 6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
7 ;; Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> 7 ;; Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
8 ;; Keywords: news, mail 8 ;; Keywords: news, mail
156 (gnus-soup-area-prefix 156 (gnus-soup-area-prefix
157 (nth 2 (car useful-areas)))))) 157 (nth 2 (car useful-areas))))))
158 (when index-buffer 158 (when index-buffer
159 (insert-buffer-substring index-buffer) 159 (insert-buffer-substring index-buffer)
160 (goto-char b) 160 (goto-char b)
161 ;; We have to remove the index number entires and 161 ;; We have to remove the index number entries and
162 ;; insert article numbers instead. 162 ;; insert article numbers instead.
163 (while (looking-at "[0-9]+") 163 (while (looking-at "[0-9]+")
164 (replace-match (int-to-string number) t t) 164 (replace-match (int-to-string number) t t)
165 (incf number) 165 (incf number)
166 (forward-line 1)))) 166 (forward-line 1))))