* gnus-art.el (gnus-button-embedded-url): Always call browse-url.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6e9fd71..f8971ba 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,13 @@
+1999-12-03 01:26:55  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-art.el (gnus-button-embedded-url): Always call browse-url. 
+
+1999-12-02 18:00:15  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * nnultimate.el (nnultimate-retrieve-headers): Use
+       mm-with-unibyte-current-buffer. 
+       (nnultimate-request-article): Ditto.
+
 1999-12-02 14:57:46  Shenghuo ZHU  <zsh@cs.rochester.edu>
 
        * nntp.el (nntp-retrieve-groups): Set to process buffer.

diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index 54db2a8..76b8c88 100644 (file)
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -53,7 +53,7 @@
 (defvar srcdir (or (getenv "srcdir") "."))
 
 (push srcdir load-path)
-(push "/usr/share/emacs/site-lisp" load-path)
+;(push "/usr/share/emacs/site-lisp" load-path)
 (load (expand-file-name "lpath.el" srcdir) nil t)
 
 (defalias 'device-sound-enabled-p 'ignore)

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 6e538c4..0c01793 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -4391,10 +4391,7 @@ forbidden in URL encoding."
 
 (defun gnus-button-embedded-url (address)
   "Browse ADDRESS."
-  ;; In Emacs 20, `browse-url-browser-function' may be an alist.
-  (if (listp browse-url-browser-function)
-      (browse-url (gnus-strip-whitespace address))
-    (funcall browse-url-browser-function (gnus-strip-whitespace address))))
+  (browse-url (gnus-strip-whitespace address)))
 
 ;;; Next/prev buttons in the article buffer.
 

diff --git a/lisp/message.el b/lisp/message.el
index 66dbbf1..a0642c1 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -384,10 +384,9 @@ always query the user whether to use the value.  If it is the symbol
                 (const use)
                 (const ask)))
 
-;; stuff relating to broken sendmail in MMDF
 (defcustom message-sendmail-f-is-evil nil
-  "*Non-nil means that \"-f username\" should not be added to the sendmail
-command line, because it is even more evil than leaving it out."
+  "*Non-nil means that \"-f username\" should not be added to the sendmail command line.
+Doing so would be even more evil than leaving it out."
   :group 'message-sending
   :type 'boolean)
 

diff --git a/lisp/nnultimate.el b/lisp/nnultimate.el
index 5470bf0..b1962ac 100644 (file)
--- a/lisp/nnultimate.el
+++ b/lisp/nnultimate.el
@@ -197,9 +197,10 @@
        (setq nnultimate-headers (sort headers 'car-less-than-car))
        (save-excursion
          (set-buffer nntp-server-buffer)
-         (erase-buffer)
-         (dolist (header nnultimate-headers)
-           (nnheader-insert-nov (cdr header)))))
+         (mm-with-unibyte-current-buffer
+           (erase-buffer)
+           (dolist (header nnultimate-headers)
+             (nnheader-insert-nov (cdr header))))))
       'nov)))
 
 (deffoo nnultimate-request-group (group &optional server dont-check)
@@ -230,7 +231,8 @@
        (goto-char (point-min))
        (insert "Content-Type: text/html\nMIME-Version: 1.0\n")
        (let ((header (cdr (assq article nnultimate-headers))))
-         (nnheader-insert-header header))
+         (mm-with-unibyte-current-buffer
+           (nnheader-insert-header header)))
        (nnheader-report 'nnultimate "Fetched article %s" article)
        (cons group article)))))
 

diff --git a/lisp/nnweb.el b/lisp/nnweb.el
index 25c8e6f..875853a 100644 (file)
--- a/lisp/nnweb.el
+++ b/lisp/nnweb.el
@@ -313,18 +313,23 @@ and `altavista'.")
              (current-buffer))))))
 
 (defun nnweb-fetch-url (url)
-  (save-excursion
-    (if (not nnheader-callback-function)
-       (progn
-         (mm-with-unibyte-buffer
-           (nnweb-insert url)
-           (setq buf (buffer-string)))
-         (erase-buffer)
-         (insert buf)
-         t)
-      (nnweb-url-retrieve-asynch
-       url 'nnweb-callback (current-buffer) nnheader-callback-function)
-      t)))
+  (let (buf)
+    (save-excursion
+      (if (not nnheader-callback-function)
+         (progn
+           (with-temp-buffer
+             (mm-enable-multibyte)
+             (let ((coding-system-for-read 'binary)
+                   (coding-system-for-write 'binary)
+                   (default-process-coding-system 'binary))
+               (nnweb-insert url))
+             (setq buf (buffer-string)))
+           (erase-buffer)
+           (insert buf)
+           t)
+       (nnweb-url-retrieve-asynch
+        url 'nnweb-callback (current-buffer) nnheader-callback-function)
+       t))))
 
 (defun nnweb-callback (buffer callback)
   (when (gnus-buffer-live-p url-working-buffer)