* * editfns.c (Fmessage): With no arguments, clear any active

[bpt/emacs.git] / lisp / gnus.el

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 198b1bd..a0e7009 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -1,13 +1,10 @@
 ;;; gnus.el --- GNUS: an NNTP-based News Reader for GNU Emacs
 
+;; Copyright (C) 1987, 1988, 1989, 1990 Free Software Foundation, Inc.
+
 ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
-;; Last-Modified: 10 Jun 1992
 ;; Keywords: news
 
-;; $Header: gnus.el,v 3.13 90/03/23 13:24:27 umerin Locked $
-
-;; Copyright (C) 1987, 1988, 1989, 1990 Free Software Foundation, Inc.
-
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
@@ -957,7 +954,7 @@ Various hooks for customization:
   (setq mode-line-buffer-identification        "GNUS: List of Newsgroups")
   (setq mode-line-process nil)
   (use-local-map gnus-Group-mode-map)
-  (buffer-flush-undo (current-buffer))
+  (buffer-disable-undo (current-buffer))
   (setq buffer-read-only t)            ;Disable modification
   (run-hooks 'gnus-Group-mode-hook))
 
@@ -1732,7 +1729,7 @@ Various hooks for customization:
            (cons (list 'gnus-show-threads " Thread") minor-mode-alist)))
   (gnus-Subject-set-mode-line)
   (use-local-map gnus-Subject-mode-map)
-  (buffer-flush-undo (current-buffer))
+  (buffer-disable-undo (current-buffer))
   (setq buffer-read-only t)            ;Disable modification
   (setq truncate-lines t)              ;Stop line folding
   (setq selective-display t)
@@ -3219,7 +3216,7 @@ is non-nil.  The hook is intended to customize Rmail mode."
        (digbuf (get-buffer-create gnus-Digest-buffer))
        (mail-header-separator ""))
     (set-buffer digbuf)
-    (buffer-flush-undo (current-buffer))
+    (buffer-disable-undo (current-buffer))
     (setq buffer-read-only nil)
     (erase-buffer)
     (insert-buffer-substring artbuf)
@@ -3655,7 +3652,7 @@ Various hooks for customization:
   (setq page-delimiter gnus-page-delimiter)
   (make-local-variable 'mail-header-separator)
   (setq mail-header-separator "")      ;For caesar function.
-  (buffer-flush-undo (current-buffer))
+  (buffer-disable-undo (current-buffer))
   (setq buffer-read-only t)            ;Disable modification
   (run-hooks 'gnus-Article-mode-hook))
 
@@ -4620,7 +4617,7 @@ ROT47 will be performed for Japanese text in any case."
                (kill-buffer file-buffer))
            (error "Output file does not exist")))
       (set-buffer tmpbuf)
-      (buffer-flush-undo (current-buffer))
+      (buffer-disable-undo (current-buffer))
       (erase-buffer)
       (insert-buffer-substring artbuf)
       (gnus-convert-article-to-rmail)
@@ -4658,7 +4655,7 @@ ROT47 will be performed for Japanese text in any case."
        (tmpbuf (get-buffer-create " *GNUS-output*")))
     (save-excursion
       (set-buffer tmpbuf)
-      (buffer-flush-undo (current-buffer))
+      (buffer-disable-undo (current-buffer))
       (erase-buffer)
       (insert-buffer-substring artbuf)
       ;; Append newline at end of the buffer as separator, and then
@@ -4727,7 +4724,7 @@ Run gnus-Open-server-hook just before opening news server."
     ;; If no server name is given, local host is assumed.
     (if (string-equal gnus-nntp-server "")
        (setq gnus-nntp-server (system-name)))
-    (cond ((string= gnus-nntp-server) "::")
+    (cond ((string= gnus-nntp-server "::")
           (require 'nnspool)
           (gnus-define-access-method 'nnspool)
           (message "Looking up local news spool..."))
@@ -5704,7 +5701,7 @@ If optional argument RAWFILE is non-nil, the raw startup file is read."
       ;; Prepare .newsrc buffer.
       (set-buffer (find-file-noselect newsrc-file))
       ;; It is not so good idea turning off undo.
-      ;;(buffer-flush-undo (current-buffer))
+      ;;(buffer-disable-undo (current-buffer))
       ;; Load quick .newsrc to restore gnus-marked-assoc and
       ;; gnus-killed-assoc even if gnus-newsrc-assoc is out of date.
       (condition-case nil
@@ -5898,7 +5895,7 @@ If optional argument RAWFILE is non-nil, the raw startup file is read."
             (save-buffer))
           ;; Quickly loadable .newsrc.
           (set-buffer (get-buffer-create " *GNUS-newsrc*"))
-          (buffer-flush-undo (current-buffer))
+          (buffer-disable-undo (current-buffer))
           (erase-buffer)
           (gnus-gnus-to-quick-newsrc-format)
           (let ((make-backup-files nil)