From 4f75ec10ff190ee188ac699f014d769d3d874e86 Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Mon, 10 Jul 2000 02:47:25 +0000 Subject: [PATCH] Save match point in nnslashdot. Bind insecure redirection. --- lisp/ChangeLog | 6 ++++++ lisp/nnslashdot.el | 11 +++++++---- lisp/webmail.el | 3 ++- 3 files changed, 15 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1c44cd561..e99aa6f82 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2000-07-10 22:41:58 ShengHuo ZHU + + * nnslashdot.el (nnslashdot-threaded-retrieve-headers): Save point. + * webmail.el (webmail-fetch): Bind + url-http-silence-on-insecure-redirection. + 2000-07-10 11:43:22 ShengHuo ZHU * nnslashdot.el (nnslashdot-threaded-retrieve-headers): Use diff --git a/lisp/nnslashdot.el b/lisp/nnslashdot.el index a60c24041..cbae5ecbc 100644 --- a/lisp/nnslashdot.el +++ b/lisp/nnslashdot.el @@ -155,11 +155,14 @@ (forward-line 1) (if (looking-at "by ]+>\\([^<]+\\)[ \t\n]*.*(\\([^)]+\\))") - (setq from (concat (nnweb-decode-entities-string (match-string 1)) - " <" (match-string 2) ">")) + (setq point (match-end 0) + from (concat + (nnweb-decode-entities-string (match-string 1)) + " <" (match-string 2) ">")) (looking-at "by \\(.+\\) on ") - (setq from (nnweb-decode-entities-string (match-string 1)))) - (goto-char (- (match-end 0) 5)) + (setq point (match-end 0) + from (nnweb-decode-entities-string (match-string 1)))) + (goto-char (- point 5)) (search-forward " on ") (setq date (nnslashdot-date-to-date diff --git a/lisp/webmail.el b/lisp/webmail.el index 5a845c51f..1089e2ad5 100644 --- a/lisp/webmail.el +++ b/lisp/webmail.el @@ -278,7 +278,7 @@ (webmail-fetch-form (car xurl) (webmail-eval (cdr xurl)))) (t (nnweb-insert (apply 'format (webmail-eval xurl))))))) - + (defun webmail-init () "Initialize buffers and such." (if (gnus-buffer-live-p webmail-buffer) @@ -337,6 +337,7 @@ (url-confirmation-func (if (memq 'post webmail-paranoid) 'webmail-url-confirmation-func url-confirmation-func)) + (url-http-silence-on-insecure-redirection t) url-cookie-storage url-cookie-secure-storage url-cookie-confirmation item id (n 0)) -- 2.34.1