[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-art.el

[Miles Bader]

Index: emacs/lisp/gnus/gnus-art.el
diff -c emacs/lisp/gnus/gnus-art.el:1.58 emacs/lisp/gnus/gnus-art.el:1.59
*** emacs/lisp/gnus/gnus-art.el:1.58    Thu Dec  9 00:57:39 2004
--- emacs/lisp/gnus/gnus-art.el Fri Jan 28 23:52:18 2005
***************
*** 1,5 ****
  ;;; gnus-art.el --- article mode commands for Gnus
! ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004
  ;;        Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <address@hidden>
--- 1,5 ----
  ;;; gnus-art.el --- article mode commands for Gnus
! ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005
  ;;        Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <address@hidden>
***************
*** 3743,3756 ****
        (mm-enable-multibyte)
        (setq major-mode 'gnus-original-article-mode)
        (make-local-variable 'gnus-original-article))
!     (if (get-buffer name)
        (save-excursion
          (set-buffer name)
-         (when (and gnus-article-edit-mode
-                    (buffer-modified-p)
-                    (not
-                     (y-or-n-p "Article mode edit in progress; discard? ")))
-           (error "Action aborted"))
          (set (make-local-variable 'gnus-article-edit-mode) nil)
          (when gnus-article-mime-handles
            (mm-destroy-parts gnus-article-mime-handles)
--- 3743,3761 ----
        (mm-enable-multibyte)
        (setq major-mode 'gnus-original-article-mode)
        (make-local-variable 'gnus-original-article))
!     (if (and (get-buffer name)
!            (with-current-buffer name
!              (if gnus-article-edit-mode
!                  (if (y-or-n-p "Article mode edit in progress; discard? ")
!                      (progn
!                        (set-buffer-modified-p nil)
!                        (gnus-kill-buffer name)
!                        (message "")
!                        nil)
!                    (error "Action aborted"))
!                t)))
        (save-excursion
          (set-buffer name)
          (set (make-local-variable 'gnus-article-edit-mode) nil)
          (when gnus-article-mime-handles
            (mm-destroy-parts gnus-article-mime-handles)