* nnslashdot.el (nnslashdot-read-groups): Unibyte.

* nnultimate.el (nnultimate-request-list): Use unibyte.

* gnus-uu.el (gnus-uu-grab-articles): Bind
gnus-display-mime-function to nil.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 629581b..d29ffef 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,12 @@
 1999-12-02 00:27:46  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * nnslashdot.el (nnslashdot-read-groups): Unibyte.
+
+       * nnultimate.el (nnultimate-request-list): Use unibyte.
+
+       * gnus-uu.el (gnus-uu-grab-articles): Bind
+       gnus-display-mime-function to nil.
+
        * message.el (message-send-mail-with-sendmail): Use the
        user-mail-address variable.
 

diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index 5af2e61..54db2a8 100644 (file)
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -53,6 +53,7 @@
 (defvar srcdir (or (getenv "srcdir") "."))
 
 (push srcdir 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-uu.el b/lisp/gnus-uu.el
index b68af25..72845ef 100644 (file)
--- a/lisp/gnus-uu.el
+++ b/lisp/gnus-uu.el
@@ -1210,7 +1210,7 @@ didn't work, and overwrite existing files.  Otherwise, ask each time."
        (gnus-inhibit-treatment t)
        has-been-begin article result-file result-files process-state
        gnus-summary-display-article-function
-       gnus-article-prepare-hook
+       gnus-article-prepare-hook gnus-display-mime-function
        article-series files)
 
     (while (and articles

diff --git a/lisp/nnslashdot.el b/lisp/nnslashdot.el
index 450de32..fbf1509 100644 (file)
--- a/lisp/nnslashdot.el
+++ b/lisp/nnslashdot.el
@@ -370,7 +370,7 @@
        sid elem description articles gname)
     (condition-case why
         ;; First we do the Ultramode to get info on all the latest groups.
-        (with-temp-buffer
+        (mm-with-unibyte-buffer
           (nnweb-insert "http://slashdot.org/slashdot.xml")
           (goto-char (point-min))
           (while (search-forward "<story>" nil t)
@@ -392,7 +392,7 @@
             (widen)))
       ;; Then do the older groups.
       (while (> (- nnslashdot-group-number number) 0)
-        (with-temp-buffer
+        (mm-with-unibyte-buffer
           (let ((case-fold-search t))
             (nnweb-insert (format nnslashdot-active-url number))
             (goto-char (point-min))
@@ -482,7 +482,7 @@
 (defun nnslashdot-read-groups ()
   (let ((file (expand-file-name "groups" nnslashdot-directory)))
     (when (file-exists-p file)
-      (with-temp-buffer
+      (mm-with-unibyte-buffer
        (insert-file-contents file)
        (goto-char (point-min))
        (setq nnslashdot-groups (read (current-buffer)))))))

diff --git a/lisp/nnultimate.el b/lisp/nnultimate.el
index b2ff2bf..5470bf0 100644 (file)
--- a/lisp/nnultimate.el
+++ b/lisp/nnultimate.el
@@ -114,7 +114,7 @@
            (set-buffer nntp-server-buffer)
            (erase-buffer))
        (setq nnultimate-articles nil)
-       (with-temp-buffer
+       (mm-with-unibyte-buffer
          (dolist (elem fetchers)
            (setq pages 1
                  current-page 1
@@ -236,7 +236,7 @@
 
 (deffoo nnultimate-request-list (&optional server)
   (nnultimate-possibly-change-server nil server)
-  (with-temp-buffer
+  (mm-with-unibyte-buffer
     (nnweb-insert
      (if (string-match "/$" nnultimate-address)
         (concat nnultimate-address "Ultimate.cgi")
@@ -299,7 +299,7 @@
         (furls (list (concat nnultimate-address (format furl sid))))
         contents forum-contents furl-fetched a subject href
         garticles topic tinfo old-max inc parse)
-    (with-temp-buffer
+    (mm-with-unibyte-buffer
       (while furls
        (erase-buffer)
        (nnweb-insert (pop furls))
@@ -387,7 +387,7 @@
   (setq nnultimate-groups-alist nil)
   (let ((file (expand-file-name "groups" nnultimate-directory)))
     (when (file-exists-p file)
-      (with-temp-buffer
+      (mm-with-unibyte-buffer
        (insert-file-contents file)
        (goto-char (point-min))
        (setq nnultimate-groups-alist (read (current-buffer)))))))

diff --git a/lisp/nnweb.el b/lisp/nnweb.el
index 3f19c6e..8b22bbc 100644 (file)
--- a/lisp/nnweb.el
+++ b/lisp/nnweb.el
@@ -231,7 +231,7 @@ and `altavista'.")
 (defun nnweb-read-overview (group)
   "Read the overview of GROUP and build the map."
   (when (file-exists-p (nnweb-overview-file group))
-    (with-temp-buffer
+    (mm-with-unibyte-buffer
       (nnheader-insert-file-contents (nnweb-overview-file group))
       (goto-char (point-min))
       (let (header)