[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/nnweb.el,v
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/nnweb.el,v |
Date: |
Wed, 19 Jul 2006 01:06:01 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Miles Bader <miles> 06/07/19 01:06:00
Index: nnweb.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/nnweb.el,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -b -r1.23 -r1.24
--- nnweb.el 26 Apr 2006 21:58:05 -0000 1.23
+++ nnweb.el 19 Jul 2006 01:06:00 -0000 1.24
@@ -171,7 +171,8 @@
(when (string-match "^<\\(.*\\)>$" article)
(setq art (match-string 1 article)))
(when (and fetch art)
- (setq url (format fetch art))
+ (setq url (format fetch
+ (mm-url-form-encode-xwfu art)))
(mm-with-unibyte-current-buffer
(mm-url-insert url))
(if (nnweb-definition 'reference t)
@@ -365,7 +366,7 @@
(mm-url-decode-entities)
(search-backward " - ")
(when (looking-at
- " - \\([a-zA-Z]+\\) \\([0-9]+\\)\\(?: \\([0-9]\\{4\\}\\)\\)?,
[^\n]+by \\([^<\n]+\\)\n")
+ " - \\([a-zA-Z]+\\) \\([0-9]+\\)\\(?:
\\([0-9]\\{4\\}\\)\\)?[^\n]+by ?\n?\\([^<\n]+\\)\n")
(setq From (match-string 4)
Date (format "%s %s 00:00:00 %s"
(match-string 1)
@@ -437,7 +438,8 @@
"?"
(mm-url-encode-www-form-urlencoded
`(("q" . ,search)
- ("num" . "100")
+ ("num" . ,(number-to-string
+ (min 100 nnweb-max-hits)))
("hq" . "")
("hl" . "en")
("lr" . "")
- [Emacs-diffs] Changes to emacs/lisp/gnus/nnweb.el,v,
Miles Bader <=