[Emacs-diffs] Changes to emacs/lisp/gnus/message.el [gnus-5_10-branch]

[Reiner Steib]

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)