Synch.
authoryamaoka <yamaoka>
Tue, 11 Jul 2000 03:49:44 +0000 (03:49 +0000)
committeryamaoka <yamaoka>
Tue, 11 Jul 2000 03:49:44 +0000 (03:49 +0000)
lisp/ChangeLog
lisp/nnslashdot.el
lisp/webmail.el

index 1c44cd5..e99aa6f 100644 (file)
@@ -1,3 +1,9 @@
+2000-07-10 22:41:58  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * 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  <zsh@cs.rochester.edu>
 
        * nnslashdot.el (nnslashdot-threaded-retrieve-headers): Use
index 6de3f50..c07e1d8 100644 (file)
            (forward-line 1)
            (if (looking-at
                 "by <a[^>]+>\\([^<]+\\)</a>[ \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
index 5a845c5..1089e2a 100644 (file)
       (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)
          (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))