/[emacs]/emacs/lisp/gnus/nnlistserv.el
ViewVC logotype

Diff of /emacs/lisp/gnus/nnlistserv.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7.2.1 by schwab, Thu Jul 22 16:45:51 2004 UTC revision 1.7.2.2 by rsteib, Mon Aug 30 18:18:30 2004 UTC
# Line 1  Line 1 
1  ;;; nnlistserv.el --- retrieving articles via web mailing list archives  ;;; nnlistserv.el --- retrieving articles via web mailing list archives
2    
3  ;; Copyright (C) 1997, 1998, 1999, 2000 Free Software Foundation, Inc.  ;; Copyright (C) 1997, 1998, 1999, 2000, 2004 Free Software Foundation, Inc.
4    
5  ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>  ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
6  ;; Keywords: news, mail  ;; Keywords: news, mail
# Line 122  Line 122 
122      (mm-url-decode-entities)      (mm-url-decode-entities)
123      (while headers      (while headers
124        (goto-char (point-min))        (goto-char (point-min))
125        (re-search-forward (format "<!-- %s=\"\\([^\"]+\\)" (car headers) nil t))        (re-search-forward (format "<!-- %s=\"\\([^\"]+\\)" (car headers)) nil t)
126        (set (pop headers) (match-string 1)))        (set (pop headers) (match-string 1)))
127      (goto-char (point-min))      (goto-char (point-min))
128      (search-forward "<!-- body" nil t)      (search-forward "<!-- body" nil t)

Legend:
Removed from v.1.7.2.1  
changed lines
  Added in v.1.7.2.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26