[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/message.el [gnus-5_10-branch]
From: |
Reiner Steib |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/message.el [gnus-5_10-branch] |
Date: |
Tue, 31 Aug 2004 10:58:13 -0400 |
Index: emacs/lisp/gnus/message.el
diff -c emacs/lisp/gnus/message.el:1.58.2.2 emacs/lisp/gnus/message.el:1.58.2.3
*** emacs/lisp/gnus/message.el:1.58.2.2 Sun Aug 22 19:35:29 2004
--- emacs/lisp/gnus/message.el Tue Aug 31 14:47:59 2004
***************
*** 2444,2454 ****
(set (make-local-variable 'message-checksum) nil)
(set (make-local-variable 'message-mime-part) 0)
(message-setup-fill-variables)
- (set
- (make-local-variable 'paragraph-separate)
- (format "\\(%s\\)\\|\\(%s\\)"
- paragraph-separate
- "<#!*/?\\(multipart\\|part\\|external\\|mml\\|secure\\)"))
;; Allow using comment commands to add/remove quoting.
;; (set (make-local-variable 'comment-start) message-yank-prefix)
(when message-yank-prefix
--- 2444,2449 ----
***************
*** 2504,2510 ****
"---+$\\|" ; delimiters for forwarded messages
page-delimiter "$\\|" ; spoiler warnings
".*wrote:$\\|" ; attribution lines
! quote-prefix-regexp "$")) ; empty lines in quoted text
(setq paragraph-separate paragraph-start)
(setq adaptive-fill-regexp
(concat quote-prefix-regexp "\\|" adaptive-fill-regexp))
--- 2499,2507 ----
"---+$\\|" ; delimiters for forwarded messages
page-delimiter "$\\|" ; spoiler warnings
".*wrote:$\\|" ; attribution lines
! quote-prefix-regexp "$\\|" ; empty lines in quoted text
! ; mml tags
! "<#!*/?\\(multipart\\|part\\|external\\|mml\\|secure\\)"))
(setq paragraph-separate paragraph-start)
(setq adaptive-fill-regexp
(concat quote-prefix-regexp "\\|" adaptive-fill-regexp))
***************
*** 3894,3901 ****
"Send the prepared message buffer with `smtpmail-send-it'.
This only differs from `smtpmail-send-it' that this command evaluates
`message-send-mail-hook' just before sending a message. It is useful
! if your ISP requires the POP-before-SMTP authentication. See the
! documentation for the function `mail-source-touch-pop'."
(run-hooks 'message-send-mail-hook)
(smtpmail-send-it))
--- 3891,3898 ----
"Send the prepared message buffer with `smtpmail-send-it'.
This only differs from `smtpmail-send-it' that this command evaluates
`message-send-mail-hook' just before sending a message. It is useful
! if your ISP requires the POP-before-SMTP authentication. See the Gnus
! manual for details."
(run-hooks 'message-send-mail-hook)
(smtpmail-send-it))
***************
*** 6490,6496 ****
(if (eq (char-after) (char-after (- (point) 2)))
(delete-char -2))))))
! (defalias 'message-exchange-point-and-mark 'exchange-point-and-mark)
(defalias 'message-make-overlay 'make-overlay)
(defalias 'message-delete-overlay 'delete-overlay)
(defalias 'message-overlay-put 'overlay-put)
--- 6487,6499 ----
(if (eq (char-after) (char-after (- (point) 2)))
(delete-char -2))))))
! (defun message-exchange-point-and-mark ()
! "Exchange point and mark, but don't activate region if it was inactive."
! (unless (prog1
! (message-mark-active-p)
! (exchange-point-and-mark))
! (setq mark-active nil)))
!
(defalias 'message-make-overlay 'make-overlay)
(defalias 'message-delete-overlay 'delete-overlay)
(defalias 'message-overlay-put 'overlay-put)