[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 [gnus-5_10-branch]
From: |
Reiner Steib |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-art.el [gnus-5_10-branch] |
Date: |
Mon, 23 Aug 2004 06:30:46 -0400 |
Index: emacs/lisp/gnus/gnus-art.el
diff -c emacs/lisp/gnus/gnus-art.el:1.49.2.1
emacs/lisp/gnus/gnus-art.el:1.49.2.2
*** emacs/lisp/gnus/gnus-art.el:1.49.2.1 Thu Jul 22 16:45:46 2004
--- emacs/lisp/gnus/gnus-art.el Sun Aug 22 19:35:29 2004
***************
*** 1,5 ****
;;; gnus-art.el --- article mode commands for Gnus
! ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003
;; 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
;; Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <address@hidden>
***************
*** 1457,1463 ****
`(save-excursion
(set-buffer gnus-article-buffer)
(save-restriction
! (let ((buffer-read-only nil)
(inhibit-point-motion-hooks t)
(case-fold-search t))
(article-narrow-to-head)
--- 1457,1463 ----
`(save-excursion
(set-buffer gnus-article-buffer)
(save-restriction
! (let ((inhibit-read-only t)
(inhibit-point-motion-hooks t)
(case-fold-search t))
(article-narrow-to-head)
***************
*** 1469,1475 ****
(defmacro gnus-with-article-buffer (&rest forms)
`(save-excursion
(set-buffer gnus-article-buffer)
! (let ((buffer-read-only nil))
,@forms)))
(put 'gnus-with-article-buffer 'lisp-indent-function 0)
--- 1469,1475 ----
(defmacro gnus-with-article-buffer (&rest forms)
`(save-excursion
(set-buffer gnus-article-buffer)
! (let ((inhibit-read-only t))
,@forms)))
(put 'gnus-with-article-buffer 'lisp-indent-function 0)
***************
*** 1557,1563 ****
(unless gnus-inhibit-hiding
(save-excursion
(save-restriction
! (let ((buffer-read-only nil)
(case-fold-search t)
(max (1+ (length gnus-sorted-header-list)))
(ignored (when (not gnus-visible-headers)
--- 1557,1563 ----
(unless gnus-inhibit-hiding
(save-excursion
(save-restriction
! (let ((inhibit-read-only t)
(case-fold-search t)
(max (1+ (length gnus-sorted-header-list)))
(ignored (when (not gnus-visible-headers)
***************
*** 1615,1621 ****
(not gnus-show-all-headers))
(save-excursion
(save-restriction
! (let ((buffer-read-only nil)
(list gnus-boring-article-headers)
(inhibit-point-motion-hooks t)
elem)
--- 1615,1621 ----
(not gnus-show-all-headers))
(save-excursion
(save-restriction
! (let ((inhibit-read-only t)
(list gnus-boring-article-headers)
(inhibit-point-motion-hooks t)
elem)
***************
*** 1769,1775 ****
(defun article-normalize-headers ()
"Make all header lines 40 characters long."
(interactive)
! (let ((buffer-read-only nil)
column)
(save-excursion
(save-restriction
--- 1769,1775 ----
(defun article-normalize-headers ()
"Make all header lines 40 characters long."
(interactive)
! (let ((inhibit-read-only t)
column)
(save-excursion
(save-restriction
***************
*** 1813,1819 ****
characters to translate to."
(save-excursion
(when (article-goto-body)
! (let ((buffer-read-only nil)
(x (make-string 225 ?x))
(i -1))
(while (< (incf i) (length x))
--- 1813,1819 ----
characters to translate to."
(save-excursion
(when (article-goto-body)
! (let ((inhibit-read-only t)
(x (make-string 225 ?x))
(i -1))
(while (< (incf i) (length x))
***************
*** 1829,1835 ****
MAP is an alist where the elements are on the form (\"from\" \"to\")."
(save-excursion
(when (article-goto-body)
! (let ((buffer-read-only nil)
elem)
(while (setq elem (pop map))
(save-excursion
--- 1829,1835 ----
MAP is an alist where the elements are on the form (\"from\" \"to\")."
(save-excursion
(when (article-goto-body)
! (let ((inhibit-read-only t)
elem)
(while (setq elem (pop map))
(save-excursion
***************
*** 1841,1847 ****
(interactive)
(save-excursion
(when (article-goto-body)
! (let ((buffer-read-only nil))
(while (search-forward "\b" nil t)
(let ((next (char-after))
(previous (char-after (- (point) 2))))
--- 1841,1847 ----
(interactive)
(save-excursion
(when (article-goto-body)
! (let ((inhibit-read-only t))
(while (search-forward "\b" nil t)
(let ((next (char-after))
(previous (char-after (- (point) 2))))
***************
*** 1949,1955 ****
"Fill lines that are wider than the window width."
(interactive)
(save-excursion
! (let ((buffer-read-only nil)
(width (window-width (get-buffer-window (current-buffer)))))
(save-restriction
(article-goto-body)
--- 1949,1955 ----
"Fill lines that are wider than the window width."
(interactive)
(save-excursion
! (let ((inhibit-read-only t)
(width (window-width (get-buffer-window (current-buffer)))))
(save-restriction
(article-goto-body)
***************
*** 1969,1975 ****
"Capitalize the first word in each sentence."
(interactive)
(save-excursion
! (let ((buffer-read-only nil)
(paragraph-start "^[\n\^L]"))
(article-goto-body)
(while (not (eobp))
--- 1969,1975 ----
"Capitalize the first word in each sentence."
(interactive)
(save-excursion
! (let ((inhibit-read-only t)
(paragraph-start "^[\n\^L]"))
(article-goto-body)
(while (not (eobp))
***************
*** 1980,1986 ****
"Remove trailing CRs and then translate remaining CRs into LFs."
(interactive)
(save-excursion
! (let ((buffer-read-only nil))
(goto-char (point-min))
(while (re-search-forward "\r+$" nil t)
(replace-match "" t t))
--- 1980,1986 ----
"Remove trailing CRs and then translate remaining CRs into LFs."
(interactive)
(save-excursion
! (let ((inhibit-read-only t))
(goto-char (point-min))
(while (re-search-forward "\r+$" nil t)
(replace-match "" t t))
***************
*** 1992,1998 ****
"Remove all trailing blank lines from the article."
(interactive)
(save-excursion
! (let ((buffer-read-only nil))
(goto-char (point-max))
(delete-region
(point)
--- 1992,1998 ----
"Remove all trailing blank lines from the article."
(interactive)
(save-excursion
! (let ((inhibit-read-only t))
(goto-char (point-max))
(delete-region
(point)
***************
*** 2113,2119 ****
(save-excursion
(set-buffer gnus-article-buffer)
(let ((inhibit-point-motion-hooks t)
! buffer-read-only
(mail-parse-charset gnus-newsgroup-charset)
(mail-parse-ignored-charsets
(save-excursion (set-buffer gnus-summary-buffer)
--- 2113,2119 ----
(save-excursion
(set-buffer gnus-article-buffer)
(let ((inhibit-point-motion-hooks t)
! (inhibit-read-only t)
(mail-parse-charset gnus-newsgroup-charset)
(mail-parse-ignored-charsets
(save-excursion (set-buffer gnus-summary-buffer)
***************
*** 2125,2131 ****
If PROMPT (the prefix), prompt for a coding system to use."
(interactive "P")
(let ((inhibit-point-motion-hooks t) (case-fold-search t)
! buffer-read-only
(mail-parse-charset gnus-newsgroup-charset)
(mail-parse-ignored-charsets
(save-excursion (condition-case nil
--- 2125,2131 ----
If PROMPT (the prefix), prompt for a coding system to use."
(interactive "P")
(let ((inhibit-point-motion-hooks t) (case-fold-search t)
! (inhibit-read-only t)
(mail-parse-charset gnus-newsgroup-charset)
(mail-parse-ignored-charsets
(save-excursion (condition-case nil
***************
*** 2175,2181 ****
(set-buffer gnus-summary-buffer)
(error))
gnus-newsgroup-ignored-charsets))
! buffer-read-only)
(save-restriction
(article-narrow-to-head)
(funcall gnus-decode-header-function (point-min) (point-max)))))
--- 2175,2181 ----
(set-buffer gnus-summary-buffer)
(error))
gnus-newsgroup-ignored-charsets))
! (inhibit-read-only t))
(save-restriction
(article-narrow-to-head)
(funcall gnus-decode-header-function (point-min) (point-max)))))
***************
*** 2183,2189 ****
(defun article-decode-group-name ()
"Decode group names in `Newsgroups:'."
(let ((inhibit-point-motion-hooks t)
! buffer-read-only
(method (gnus-find-method-for-group gnus-newsgroup-name)))
(when (and (or gnus-group-name-charset-method-alist
gnus-group-name-charset-group-alist)
--- 2183,2189 ----
(defun article-decode-group-name ()
"Decode group names in `Newsgroups:'."
(let ((inhibit-point-motion-hooks t)
! (inhibit-read-only t)
(method (gnus-find-method-for-group gnus-newsgroup-name)))
(when (and (or gnus-group-name-charset-method-alist
gnus-group-name-charset-group-alist)
***************
*** 2227,2233 ****
(when gnus-use-idna
(save-restriction
(let ((inhibit-point-motion-hooks t)
! buffer-read-only)
(article-narrow-to-head)
(goto-char (point-min))
(while (re-search-forward "\\(xn--[-A-Za-z0-9.]*\\)[ \t\n\r,>]" nil t)
--- 2227,2233 ----
(when gnus-use-idna
(save-restriction
(let ((inhibit-point-motion-hooks t)
! (inhibit-read-only t))
(article-narrow-to-head)
(goto-char (point-min))
(while (re-search-forward "\\(xn--[-A-Za-z0-9.]*\\)[ \t\n\r,>]" nil t)
***************
*** 2250,2256 ****
If READ-CHARSET, ask for a coding system."
(interactive (list 'force current-prefix-arg))
(save-excursion
! (let ((buffer-read-only nil) type charset)
(if (gnus-buffer-live-p gnus-original-article-buffer)
(with-current-buffer gnus-original-article-buffer
(setq type
--- 2250,2256 ----
If READ-CHARSET, ask for a coding system."
(interactive (list 'force current-prefix-arg))
(save-excursion
! (let ((inhibit-read-only t) type charset)
(if (gnus-buffer-live-p gnus-original-article-buffer)
(with-current-buffer gnus-original-article-buffer
(setq type
***************
*** 2280,2286 ****
If READ-CHARSET, ask for a coding system."
(interactive (list 'force current-prefix-arg))
(save-excursion
! (let ((buffer-read-only nil) type charset)
(if (gnus-buffer-live-p gnus-original-article-buffer)
(with-current-buffer gnus-original-article-buffer
(setq type
--- 2280,2286 ----
If READ-CHARSET, ask for a coding system."
(interactive (list 'force current-prefix-arg))
(save-excursion
! (let ((inhibit-read-only t) type charset)
(if (gnus-buffer-live-p gnus-original-article-buffer)
(with-current-buffer gnus-original-article-buffer
(setq type
***************
*** 2315,2328 ****
(interactive)
(require 'rfc1843)
(save-excursion
! (let ((buffer-read-only nil))
(rfc1843-decode-region (point-min) (point-max)))))
(defun article-unsplit-urls ()
"Remove the newlines that some other mailers insert into URLs."
(interactive)
(save-excursion
! (let ((buffer-read-only nil))
(goto-char (point-min))
(while (re-search-forward
"^\\(\\(https?\\|ftp\\)://\\S-+\\) *\n\\(\\S-+\\)" nil t)
--- 2315,2328 ----
(interactive)
(require 'rfc1843)
(save-excursion
! (let ((inhibit-read-only t))
(rfc1843-decode-region (point-min) (point-max)))))
(defun article-unsplit-urls ()
"Remove the newlines that some other mailers insert into URLs."
(interactive)
(save-excursion
! (let ((inhibit-read-only t))
(goto-char (point-min))
(while (re-search-forward
"^\\(\\(https?\\|ftp\\)://\\S-+\\) *\n\\(\\S-+\\)" nil t)
***************
*** 2336,2342 ****
If READ-CHARSET, ask for a coding system."
(interactive "P")
(save-excursion
! (let ((buffer-read-only nil)
charset)
(when (gnus-buffer-live-p gnus-original-article-buffer)
(with-current-buffer gnus-original-article-buffer
--- 2336,2342 ----
If READ-CHARSET, ask for a coding system."
(interactive "P")
(save-excursion
! (let ((inhibit-read-only t)
charset)
(when (gnus-buffer-live-p gnus-original-article-buffer)
(with-current-buffer gnus-original-article-buffer
***************
*** 2401,2407 ****
(regexp (if (consp gnus-list-identifiers)
(mapconcat 'identity gnus-list-identifiers " *\\|")
gnus-list-identifiers))
! buffer-read-only)
(when regexp
(save-excursion
(save-restriction
--- 2401,2407 ----
(regexp (if (consp gnus-list-identifiers)
(mapconcat 'identity gnus-list-identifiers " *\\|")
gnus-list-identifiers))
! (inhibit-read-only))
(when regexp
(save-excursion
(save-restriction
***************
*** 2423,2429 ****
(interactive (gnus-article-hidden-arg))
(unless (gnus-article-check-hidden-text 'pem arg)
(save-excursion
! (let (buffer-read-only end)
(goto-char (point-min))
;; Hide the horrendously ugly "header".
(when (and (search-forward
--- 2423,2429 ----
(interactive (gnus-article-hidden-arg))
(unless (gnus-article-check-hidden-text 'pem arg)
(save-excursion
! (let ((inhibit-read-only t) end)
(goto-char (point-min))
;; Hide the horrendously ugly "header".
(when (and (search-forward
***************
*** 2473,2479 ****
(save-restriction
(let ((inhibit-point-motion-hooks t)
(gnus-signature-limit nil)
! buffer-read-only)
(article-goto-body)
(cond
((eq banner 'signature)
--- 2473,2479 ----
(save-restriction
(let ((inhibit-point-motion-hooks t)
(gnus-signature-limit nil)
! (inhibit-read-only t))
(article-goto-body)
(cond
((eq banner 'signature)
***************
*** 2496,2502 ****
(save-excursion
(set-buffer gnus-article-buffer)
(when (article-goto-body)
! (let* ((buffer-read-only nil)
(start (point))
(end (point-max))
(orig (buffer-substring start end))
--- 2496,2502 ----
(save-excursion
(set-buffer gnus-article-buffer)
(when (article-goto-body)
! (let* ((inhibit-read-only t)
(start (point))
(end (point-max))
(orig (buffer-substring start end))
***************
*** 2514,2520 ****
(unless (gnus-article-check-hidden-text 'signature arg)
(save-excursion
(save-restriction
! (let ((buffer-read-only nil))
(when (gnus-article-narrow-to-signature)
(gnus-article-hide-text-type
(point-min) (point-max) 'signature))))))
--- 2514,2520 ----
(unless (gnus-article-check-hidden-text 'signature arg)
(save-excursion
(save-restriction
! (let ((inhibit-read-only t))
(when (gnus-article-narrow-to-signature)
(gnus-article-hide-text-type
(point-min) (point-max) 'signature))))))
***************
*** 2534,2540 ****
(interactive)
(save-excursion
(let ((inhibit-point-motion-hooks t)
! buffer-read-only)
(when (article-goto-body)
(while (and (not (eobp))
(looking-at "[ \t]*$"))
--- 2534,2540 ----
(interactive)
(save-excursion
(let ((inhibit-point-motion-hooks t)
! (inhibit-read-only t))
(when (article-goto-body)
(while (and (not (eobp))
(looking-at "[ \t]*$"))
***************
*** 2569,2575 ****
(interactive)
(save-excursion
(let ((inhibit-point-motion-hooks t)
! buffer-read-only)
;; First make all blank lines empty.
(article-goto-body)
(while (re-search-forward "^[ \t]+$" nil t)
--- 2569,2575 ----
(interactive)
(save-excursion
(let ((inhibit-point-motion-hooks t)
! (inhibit-read-only t))
;; First make all blank lines empty.
(article-goto-body)
(while (re-search-forward "^[ \t]+$" nil t)
***************
*** 2588,2594 ****
(interactive)
(save-excursion
(let ((inhibit-point-motion-hooks t)
! buffer-read-only)
(article-goto-body)
(while (re-search-forward "^[ \t]+" nil t)
(replace-match "" t t)))))
--- 2588,2594 ----
(interactive)
(save-excursion
(let ((inhibit-point-motion-hooks t)
! (inhibit-read-only t))
(article-goto-body)
(while (re-search-forward "^[ \t]+" nil t)
(replace-match "" t t)))))
***************
*** 2598,2604 ****
(interactive)
(save-excursion
(let ((inhibit-point-motion-hooks t)
! buffer-read-only)
(article-goto-body)
(while (re-search-forward "[ \t]+$" nil t)
(replace-match "" t t)))))
--- 2598,2604 ----
(interactive)
(save-excursion
(let ((inhibit-point-motion-hooks t)
! (inhibit-read-only t))
(article-goto-body)
(while (re-search-forward "[ \t]+$" nil t)
(replace-match "" t t)))))
***************
*** 2615,2621 ****
(interactive)
(save-excursion
(let ((inhibit-point-motion-hooks t)
! buffer-read-only)
(article-goto-body)
(while (re-search-forward "^[ \t]*\n" nil t)
(replace-match "" t t)))))
--- 2615,2621 ----
(interactive)
(save-excursion
(let ((inhibit-point-motion-hooks t)
! (inhibit-read-only t))
(article-goto-body)
(while (re-search-forward "^[ \t]*\n" nil t)
(replace-match "" t t)))))
***************
*** 2704,2710 ****
(defun gnus-article-show-hidden-text (type &optional dummy)
"Show all hidden text of type TYPE.
Originally it is hide instead of DUMMY."
! (let ((buffer-read-only nil)
(inhibit-point-motion-hooks t))
(gnus-remove-text-properties-when
'article-type type
--- 2704,2710 ----
(defun gnus-article-show-hidden-text (type &optional dummy)
"Show all hidden text of type TYPE.
Originally it is hide instead of DUMMY."
! (let ((inhibit-read-only t)
(inhibit-point-motion-hooks t))
(gnus-remove-text-properties-when
'article-type type
***************
*** 2769,2775 ****
(forward-line 1))
(when (and date (not (string= date "")))
(goto-char (point-min))
! (let ((buffer-read-only nil))
;; Delete any old Date headers.
(while (re-search-forward date-regexp nil t)
(if pos
--- 2769,2775 ----
(forward-line 1))
(when (and date (not (string= date "")))
(goto-char (point-min))
! (let ((inhibit-read-only t))
;; Delete any old Date headers.
(while (re-search-forward date-regexp nil t)
(if pos
***************
*** 2988,2994 ****
;; "Show all hidden text in the article buffer."
;; (interactive)
;; (save-excursion
! ;; (let ((buffer-read-only nil))
;; (gnus-article-unhide-text (point-min) (point-max)))))
(defun article-remove-leading-whitespace ()
--- 2988,2994 ----
;; "Show all hidden text in the article buffer."
;; (interactive)
;; (save-excursion
! ;; (let ((inhibit-read-only t))
;; (gnus-article-unhide-text (point-min) (point-max)))))
(defun article-remove-leading-whitespace ()
***************
*** 2996,3002 ****
(interactive)
(save-excursion
(save-restriction
! (let ((buffer-read-only nil))
(article-narrow-to-head)
(goto-char (point-min))
(while (re-search-forward "^[^ :]+: \\([ \t]+\\)" nil t)
--- 2996,3002 ----
(interactive)
(save-excursion
(save-restriction
! (let ((inhibit-read-only t))
(article-narrow-to-head)
(goto-char (point-min))
(while (re-search-forward "^[^ :]+: \\([ \t]+\\)" nil t)
***************
*** 3013,3019 ****
gnus-article-emphasis-alist)
(error))
gnus-emphasis-alist))
! (buffer-read-only nil)
(props (append '(article-type emphasis)
gnus-hidden-properties))
regexp elem beg invisible visible face)
--- 3013,3019 ----
gnus-article-emphasis-alist)
(error))
gnus-emphasis-alist))
! (inhibit-read-only t)
(props (append '(article-type emphasis)
gnus-hidden-properties))
regexp elem beg invisible visible face)
***************
*** 3413,3419 ****
(mm-handle-multipart-ctl-parameter
mm-security-handle 'gnus-info)))))
(when info
! (let (buffer-read-only bface eface)
(save-restriction
(message-narrow-to-head)
(goto-char (point-max))
--- 3413,3419 ----
(mm-handle-multipart-ctl-parameter
mm-security-handle 'gnus-info)))))
(when info
! (let ((inhibit-read-only t) bface eface)
(save-restriction
(message-narrow-to-head)
(goto-char (point-max))
***************
*** 3718,3724 ****
(when (and (boundp 'transient-mark-mode)
transient-mark-mode)
(setq mark-active nil))
! (if (not (setq result (let ((buffer-read-only nil))
(gnus-request-article-this-buffer
article group))))
;; There is no such article.
--- 3718,3724 ----
(when (and (boundp 'transient-mark-mode)
transient-mark-mode)
(setq mark-active nil))
! (if (not (setq result (let ((inhibit-read-only t))
(gnus-request-article-this-buffer
article group))))
;; There is no such article.
***************
*** 3813,3819 ****
;; Hooks for getting information from the article.
;; This hook must be called before being narrowed.
(let ((gnus-article-buffer (current-buffer))
! buffer-read-only)
(unless (eq major-mode 'gnus-article-mode)
(gnus-article-mode))
(setq buffer-read-only nil
--- 3813,3820 ----
;; Hooks for getting information from the article.
;; This hook must be called before being narrowed.
(let ((gnus-article-buffer (current-buffer))
! buffer-read-only
! (inhibit-read-only t))
(unless (eq major-mode 'gnus-article-mode)
(gnus-article-mode))
(setq buffer-read-only nil
***************
*** 3933,3939 ****
(mm-remove-parts handles)
(goto-char (point-min))
(or (search-forward "\n\n") (goto-char (point-max)))
! (let (buffer-read-only)
(delete-region (point) (point-max))
(mm-display-parts handles))))))
--- 3934,3940 ----
(mm-remove-parts handles)
(goto-char (point-min))
(or (search-forward "\n\n") (goto-char (point-max)))
! (let ((inhibit-read-only t))
(delete-region (point) (point-max))
(mm-display-parts handles))))))
***************
*** 4231,4237 ****
(let* ((handle (or handle (get-text-property (point) 'gnus-data)))
contents charset
(b (point))
! buffer-read-only)
(when handle
(if (and (not arg) (mm-handle-undisplayer handle))
(mm-remove-part handle)
--- 4232,4238 ----
(let* ((handle (or handle (get-text-property (point) 'gnus-data)))
contents charset
(b (point))
! (inhibit-read-only t))
(when handle
(if (and (not arg) (mm-handle-undisplayer handle))
(mm-remove-part handle)
***************
*** 4266,4272 ****
(let* ((handle (or handle (get-text-property (point) 'gnus-data)))
contents charset
(b (point))
! buffer-read-only)
(when handle
(if (mm-handle-undisplayer handle)
(mm-remove-part handle))
--- 4267,4273 ----
(let* ((handle (or handle (get-text-property (point) 'gnus-data)))
contents charset
(b (point))
! (inhibit-read-only t))
(when handle
(if (mm-handle-undisplayer handle)
(mm-remove-part handle))
***************
*** 4305,4311 ****
(mail-parse-ignored-charsets
(save-excursion (set-buffer gnus-summary-buffer)
gnus-newsgroup-ignored-charsets))
! buffer-read-only)
(when handle
(if (mm-handle-undisplayer handle)
(mm-remove-part handle)
--- 4306,4312 ----
(mail-parse-ignored-charsets
(save-excursion (set-buffer gnus-summary-buffer)
gnus-newsgroup-ignored-charsets))
! (inhibit-read-only t))
(when handle
(if (mm-handle-undisplayer handle)
(mm-remove-part handle)
***************
*** 4410,4416 ****
"Display HANDLE and fix MIME button."
(let ((id (get-text-property (point) 'gnus-part))
(point (point))
! buffer-read-only)
(forward-line 1)
(prog1
(let ((window (selected-window))
--- 4411,4417 ----
"Display HANDLE and fix MIME button."
(let ((id (get-text-property (point) 'gnus-part))
(point (point))
! (inhibit-read-only t))
(forward-line 1)
(prog1
(let ((window (selected-window))
***************
*** 4541,4547 ****
(mm-dissect-buffer nil gnus-article-loose-mime)
(and gnus-article-emulate-mime
(mm-uu-dissect))))
! buffer-read-only handle name type b e display)
(when (and (not ihandles)
(not gnus-displaying-mime))
;; Top-level call; we clean up.
--- 4542,4548 ----
(mm-dissect-buffer nil gnus-article-loose-mime)
(and gnus-article-emulate-mime
(mm-uu-dissect))))
! (inhibit-read-only t) handle name type b e display)
(when (and (not ihandles)
(not gnus-displaying-mime))
;; Top-level call; we clean up.
***************
*** 4736,4742 ****
(let* ((preferred (or preferred (mm-preferred-alternative handles)))
(ihandles handles)
(point (point))
! handle buffer-read-only from props begend not-pref)
(save-window-excursion
(save-restriction
(when ibegend
--- 4737,4743 ----
(let* ((preferred (or preferred (mm-preferred-alternative handles)))
(ihandles handles)
(point (point))
! handle (inhibit-read-only t) from props begend not-pref)
(save-window-excursion
(save-restriction
(when ibegend
***************
*** 4939,4945 ****
(widen)
;; Remove any old next/prev buttons.
(when (gnus-visual-p 'page-marker)
! (let ((buffer-read-only nil))
(gnus-remove-text-with-property 'gnus-prev)
(gnus-remove-text-with-property 'gnus-next)))
(if
--- 4940,4946 ----
(widen)
;; Remove any old next/prev buttons.
(when (gnus-visual-p 'page-marker)
! (let ((inhibit-read-only t))
(gnus-remove-text-with-property 'gnus-prev)
(gnus-remove-text-with-property 'gnus-next)))
(if
***************
*** 4959,4965 ****
(match-beginning 0)
(point)))
(when (and (gnus-visual-p 'page-marker)
! (not (= (point-min) 1)))
(save-excursion
(goto-char (point-min))
(gnus-insert-prev-page-button)))
--- 4960,4966 ----
(match-beginning 0)
(point)))
(when (and (gnus-visual-p 'page-marker)
! (> (point-min) (save-restriction (widen) (point-min))))
(save-excursion
(goto-char (point-min))
(gnus-insert-prev-page-button)))
***************
*** 5411,5417 ****
(backend (car (gnus-find-method-for-group
gnus-newsgroup-name)))
result
! (buffer-read-only nil))
(if (or (not (listp methods))
(and (symbolp (car methods))
(assq (car methods) nnoo-definition-alist)))
--- 5412,5418 ----
(backend (car (gnus-find-method-for-group
gnus-newsgroup-name)))
result
! (inhibit-read-only t))
(if (or (not (listp methods))
(and (symbolp (car methods))
(assq (car methods) nnoo-definition-alist)))
***************
*** 5463,5469 ****
(buffer-disable-undo)
(setq major-mode 'gnus-original-article-mode)
(setq buffer-read-only t))
! (let (buffer-read-only)
(erase-buffer)
(insert-buffer-substring gnus-article-buffer))
(setq gnus-original-article (cons group article)))
--- 5464,5470 ----
(buffer-disable-undo)
(setq major-mode 'gnus-original-article-mode)
(setq buffer-read-only t))
! (let ((inhibit-read-only t))
(erase-buffer)
(insert-buffer-substring gnus-article-buffer))
(setq gnus-original-article (cons group article)))
***************
*** 5562,5568 ****
["Body" message-goto-body t]
["Signature" message-goto-signature t]))
! (define-derived-mode gnus-article-edit-mode text-mode "Article Edit"
"Major mode for editing articles.
This is an extended text-mode.
--- 5563,5569 ----
["Body" message-goto-body t]
["Signature" message-goto-signature t]))
! (define-derived-mode gnus-article-edit-mode message-mode "Article Edit"
"Major mode for editing articles.
This is an extended text-mode.
***************
*** 6285,6291 ****
(set-buffer gnus-article-buffer)
(save-restriction
(let ((alist gnus-header-face-alist)
! (buffer-read-only nil)
(case-fold-search t)
(inhibit-point-motion-hooks t)
entry regexp header-face field-face from hpoints fpoints)
--- 6286,6292 ----
(set-buffer gnus-article-buffer)
(save-restriction
(let ((alist gnus-header-face-alist)
! (inhibit-read-only t)
(case-fold-search t)
(inhibit-point-motion-hooks t)
entry regexp header-face field-face from hpoints fpoints)
***************
*** 6324,6330 ****
(interactive)
(save-excursion
(set-buffer gnus-article-buffer)
! (let ((buffer-read-only nil)
(inhibit-point-motion-hooks t))
(save-restriction
(when (and gnus-signature-face
--- 6325,6331 ----
(interactive)
(save-excursion
(set-buffer gnus-article-buffer)
! (let ((inhibit-read-only t)
(inhibit-point-motion-hooks t))
(save-restriction
(when (and gnus-signature-face
***************
*** 6349,6355 ****
(interactive (list 'force))
(save-excursion
(set-buffer gnus-article-buffer)
! (let ((buffer-read-only nil)
(inhibit-point-motion-hooks t)
(case-fold-search t)
(alist gnus-button-alist)
--- 6350,6356 ----
(interactive (list 'force))
(save-excursion
(set-buffer gnus-article-buffer)
! (let ((inhibit-read-only t)
(inhibit-point-motion-hooks t)
(case-fold-search t)
(alist gnus-button-alist)
***************
*** 6394,6400 ****
(save-excursion
(set-buffer gnus-article-buffer)
(save-restriction
! (let ((buffer-read-only nil)
(inhibit-point-motion-hooks t)
(case-fold-search t)
(alist gnus-header-button-alist)
--- 6395,6401 ----
(save-excursion
(set-buffer gnus-article-buffer)
(save-restriction
! (let ((inhibit-read-only t)
(inhibit-point-motion-hooks t)
(case-fold-search t)
(alist gnus-header-button-alist)
***************
*** 6452,6458 ****
(defun gnus-signature-toggle (end)
(save-excursion
(set-buffer gnus-article-buffer)
! (let ((buffer-read-only nil)
(inhibit-point-motion-hooks t))
(if (text-property-any end (point-max) 'article-type 'signature)
(progn
--- 6453,6459 ----
(defun gnus-signature-toggle (end)
(save-excursion
(set-buffer gnus-article-buffer)
! (let ((inhibit-read-only t)
(inhibit-point-motion-hooks t))
(if (text-property-any end (point-max) 'article-type 'signature)
(progn
***************
*** 6679,6685 ****
(defun gnus-insert-prev-page-button ()
(let ((b (point))
! (buffer-read-only nil))
(gnus-eval-format
gnus-prev-page-line-format nil
`(,@(gnus-local-map-property gnus-prev-page-map)
--- 6680,6686 ----
(defun gnus-insert-prev-page-button ()
(let ((b (point))
! (inhibit-read-only t))
(gnus-eval-format
gnus-prev-page-line-format nil
`(,@(gnus-local-map-property gnus-prev-page-map)
***************
*** 6730,6736 ****
(defun gnus-insert-next-page-button ()
(let ((b (point))
! (buffer-read-only nil))
(gnus-eval-format gnus-next-page-line-format nil
`(,@(gnus-local-map-property gnus-next-page-map)
gnus-next t
--- 6731,6737 ----
(defun gnus-insert-next-page-button ()
(let ((b (point))
! (inhibit-read-only t))
(gnus-eval-format gnus-next-page-line-format nil
`(,@(gnus-local-map-property gnus-next-page-map)
gnus-next t
***************
*** 6765,6771 ****
"List of methods used to decode headers.
This variable is a list of FUNCTION or (REGEXP . FUNCTION). If item
! is FUNCTION, FUNCTION will be apply to all newsgroups. If item is a
\(REGEXP . FUNCTION), FUNCTION will be only apply to the newsgroups
whose names match REGEXP.
--- 6766,6772 ----
"List of methods used to decode headers.
This variable is a list of FUNCTION or (REGEXP . FUNCTION). If item
! is FUNCTION, FUNCTION will be applied to all newsgroups. If item is a
\(REGEXP . FUNCTION), FUNCTION will be only apply to the newsgroups
whose names match REGEXP.
***************
*** 6904,6910 ****
(setq references
(or (mail-header-references gnus-current-headers) ""))
(set-buffer gnus-article-buffer)
! (let* ((buffer-read-only nil)
(headers
(mapcar (lambda (field)
(and (save-restriction
--- 6905,6911 ----
(setq references
(or (mail-header-references gnus-current-headers) ""))
(set-buffer gnus-article-buffer)
! (let* ((inhibit-read-only t)
(headers
(mapcar (lambda (field)
(and (save-restriction
***************
*** 6984,6990 ****
(defun gnus-mime-security-verify-or-decrypt (handle)
(mm-remove-parts (cdr handle))
(let ((region (mm-handle-multipart-ctl-parameter handle 'gnus-region))
! point buffer-read-only)
(if region
(goto-char (car region)))
(save-restriction
--- 6985,6991 ----
(defun gnus-mime-security-verify-or-decrypt (handle)
(mm-remove-parts (cdr handle))
(let ((region (mm-handle-multipart-ctl-parameter handle 'gnus-region))
! point (inhibit-read-only t))
(if region
(goto-char (car region)))
(save-restriction
***************
*** 7014,7020 ****
(not (get-text-property (point) 'gnus-mime-details)))
(gnus-mime-security-button-line-format
(get-text-property (point) 'gnus-line-format))
! buffer-read-only)
(forward-char -1)
(while (eq (get-text-property (point) 'gnus-line-format)
gnus-mime-security-button-line-format)
--- 7015,7021 ----
(not (get-text-property (point) 'gnus-mime-details)))
(gnus-mime-security-button-line-format
(get-text-property (point) 'gnus-line-format))
! (inhibit-read-only t))
(forward-char -1)
(while (eq (get-text-property (point) 'gnus-line-format)
gnus-mime-security-button-line-format)
- [Emacs-diffs] Changes to emacs/lisp/gnus/gnus-art.el [gnus-5_10-branch],
Reiner Steib <=