comparison lisp/message.el @ 15559:8d8bf85d356a

Synched with Gnus 5.2.31.

15558:18364c2808f7

(require 'easymenu)
(if (string-match "XEmacs\\|Lucid" emacs-version)
    (require 'mail-abbrevs)
  (require 'mailabbrev))

;;;###autoload
(defvar message-directory "~/Mail/"
  "*Directory from which all other mail file variables are derived.")

(defvar message-max-buffers 10
  "*How many buffers to keep before starting to kill them off.")

;;;###autoload
(defvar message-user-organization-file "/usr/lib/news/organization"
  "*Local news organization file.")

;;;###autoload
(defvar message-autosave-directory
  (concat (file-name-as-directory message-directory) "drafts/")
  "*Directory where message autosaves buffers.
If nil, message won't autosave.")

(defvar message-forward-start-separator 
  "------- Start of forwarded message -------\n"

(defun message-yank-original (&optional arg)
  "Insert the message being replied to, if any.
Puts point before the text and mark after.
Normally indents each nonblank line ARG spaces (default 3).  However,
if `message-yank-prefix' is non-nil, insert that prefix on each line.

Just \\[universal-argument] as argument means don't indent, insert no
prefix, and don't delete any headers."
  (interactive "P")
  (let ((modified (buffer-modified-p)))

		(insert "Followup-To: " to "\n"))
	      t))
	;; Check "Shoot me".
	(or (message-check-element 'shoot)
	    (save-excursion
	      (if (search-forward
		   ".i-have-a-misconfigured-system-so-shoot-me" nil t)
		  (y-or-n-p
		   "You appear to have a misconfigured system.  Really post? ")
		t)))
	;; Check for Approved.
	(or (message-check-element 'approved)

	      (push (cons 'Cc
			  (mapconcat (lambda (addr) (cdr addr)) ccalist ", "))
		    follow-to)))))
      (widen))

    (message-pop-to-buffer (message-buffer-name "reply" from))

    (setq message-reply-headers
	  (vector 0 subject from date message-id references 0 0 ""))

    (message-setup

15559:8d8bf85d356a

(require 'easymenu)
(if (string-match "XEmacs\\|Lucid" emacs-version)
    (require 'mail-abbrevs)
  (require 'mailabbrev))

(defvar message-directory "~/Mail/"
  "*Directory from which all other mail file variables are derived.")

(defvar message-max-buffers 10
  "*How many buffers to keep before starting to kill them off.")

;;;###autoload
(defvar message-user-organization-file "/usr/lib/news/organization"
  "*Local news organization file.")

(defvar message-autosave-directory "~/"
  ; (concat (file-name-as-directory message-directory) "drafts/")
  "*Directory where message autosaves buffers.
If nil, message won't autosave.")

(defvar message-forward-start-separator 
  "------- Start of forwarded message -------\n"

(defun message-yank-original (&optional arg)
  "Insert the message being replied to, if any.
Puts point before the text and mark after.
Normally indents each nonblank line ARG spaces (default 3).  However,
if `message-yank-prefix' is non-nil, insert that prefix on each line.

This function uses `message-cite-function' to do the actual citing.

Just \\[universal-argument] as argument means don't indent, insert no
prefix, and don't delete any headers."
  (interactive "P")
  (let ((modified (buffer-modified-p)))

		(insert "Followup-To: " to "\n"))
	      t))
	;; Check "Shoot me".
	(or (message-check-element 'shoot)
	    (save-excursion
	      (if (re-search-forward
		   "Message-ID.*.i-have-a-misconfigured-system-so-shoot-me"
		   nil t)
		  (y-or-n-p
		   "You appear to have a misconfigured system.  Really post? ")
		t)))
	;; Check for Approved.
	(or (message-check-element 'approved)

	      (push (cons 'Cc
			  (mapconcat (lambda (addr) (cdr addr)) ccalist ", "))
		    follow-to)))))
      (widen))

    (message-pop-to-buffer (message-buffer-name
			    (if wide "wide reply" "reply") from
			    (if wide to-address nil)))

    (setq message-reply-headers
	  (vector 0 subject from date message-id references 0 0 ""))

    (message-setup