[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-art.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-art.el |
Date: |
Fri, 28 Jan 2005 18:52:19 -0500 |
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)
- [Emacs-diffs] Changes to emacs/lisp/gnus/gnus-art.el,
Miles Bader <=