Lines Matching +defs:article +defs:goto +defs:body
132 article in. The default function is `message-output' which saves in Unix
145 "The following message is a courtesy copy of an article\nthat has been posted to %s as well.\n\n"
148 the article has been posted to will be inserted there.
226 "*Headers to be generated or prompted for when posting an article.
358 "Header to insert when you don't want your article to be archived.
368 If nil, don't insert any text in the body."
502 * `message-forward-subject-author-subject' Source of article (author or
504 * `message-forward-subject-name-subject' Source of article (name of author
506 * `message-forward-subject-fwd' Subject of article with 'Fwd:' prepended
601 (defcustom message-cancel-message "I am canceling my own article.\n"
807 ;; is nil. See: http://article.gmane.org/gmane.emacs.gnus.general/51138
964 "Number of days before your article expires."
982 "The headers of the current replied article.
1037 (goto-char (point-min))
1046 "*Set this non-nil if the system's mailer runs the header and body together.
1118 `empty-article' Allow you to post an empty article;
1294 (goto-char (point-min))
1299 (goto-char start))
1413 article matching this variable is used as the From field of
1502 (defvar message-draft-article nil)
1643 (autoload 'gnus-delay-article "gnus-delay")
1690 (goto-char (point-min))
1719 (goto-char (point-min))
1754 (goto-char (point-min)))
1766 (goto-char (point-max))
1781 (put 'message-with-reply-buffer 'edebug-form-spec '(body))
1821 ;; `message-forward-make-body'.
1836 (goto-char (point-min))
1855 (goto-char (point-min))
1879 (goto-char word-beg)
1961 (message-goto-subject)
1969 "Mark some region in the current article with enclosing tags.
1974 (goto-char end)
1976 (goto-char beg)
1986 (goto-char p)
1988 (goto-char p)
1992 "Insert \"X-No-Archive: Yes\" in the header and a note in the body.
1995 body, set `message-archive-note' to nil."
2002 (if (message-goto-signature)
2022 (message-goto-newsgroups)
2055 "Insert a in message body note about a set Followup or Crosspost.
2061 ;; start scanning body for previous uses
2062 (message-goto-signature)
2065 nil t))) ; just search in body
2066 (message-goto-signature)
2071 (message-goto-signature)
2077 (if (message-goto-signature)
2141 (message-goto-to)
2157 (goto-char (point-min))
2178 (goto-char (match-beginning 0))
2182 (goto-char (match-beginning 0))
2183 (goto-char (point-max)))))
2191 (goto-char (point-min))
2202 (goto-char (point-min))
2207 (goto-char (point-min)))
2212 (goto-char (point-min))
2216 (goto-char (point-min)))
2228 (goto-char (point-min))
2235 (goto-char (point-min)))
2271 (goto-char (point-max)))))
2275 (goto-char (point-min))
2314 (cond ((eq arg 16) (Info-goto-node "(pgg)Top"))
2315 ((eq arg 4) (Info-goto-node "(emacs-mime)Top"))
2316 (t (Info-goto-node "(message)Top"))))
2334 (define-key message-mode-map "\C-c\C-f\C-t" 'message-goto-to)
2335 (define-key message-mode-map "\C-c\C-f\C-o" 'message-goto-from)
2336 (define-key message-mode-map "\C-c\C-f\C-b" 'message-goto-bcc)
2337 (define-key message-mode-map "\C-c\C-f\C-w" 'message-goto-fcc)
2338 (define-key message-mode-map "\C-c\C-f\C-c" 'message-goto-cc)
2339 (define-key message-mode-map "\C-c\C-f\C-s" 'message-goto-subject)
2340 (define-key message-mode-map "\C-c\C-f\C-r" 'message-goto-reply-to)
2341 (define-key message-mode-map "\C-c\C-f\C-n" 'message-goto-newsgroups)
2342 (define-key message-mode-map "\C-c\C-f\C-d" 'message-goto-distribution)
2343 (define-key message-mode-map "\C-c\C-f\C-f" 'message-goto-followup-to)
2344 (define-key message-mode-map "\C-c\C-f\C-m" 'message-goto-mail-followup-to)
2345 (define-key message-mode-map "\C-c\C-f\C-k" 'message-goto-keywords)
2346 (define-key message-mode-map "\C-c\C-f\C-u" 'message-goto-summary)
2352 ;; modify headers (and insert notes in body)
2363 (define-key message-mode-map "\C-c\C-b" 'message-goto-body)
2364 (define-key message-mode-map "\C-c\C-i" 'message-goto-signature)
2380 (define-key message-mode-map "\C-c\C-r" 'message-caesar-buffer-body)
2388 (define-key message-mode-map "\C-c\n" 'gnus-delay-article)
2409 ["Caesar (rot13) Message" message-caesar-buffer-body t]
2440 ["Send at Specific Time..." gnus-delay-article
2454 ["To" message-goto-to t]
2455 ["From" message-goto-from t]
2456 ["Subject" message-goto-subject t]
2458 ["Cc" message-goto-cc t]
2459 ["Bcc" message-goto-bcc t]
2460 ["Fcc" message-goto-fcc t]
2461 ["Reply-To" message-goto-reply-to t]
2474 ["Summary" message-goto-summary t]
2475 ["Keywords" message-goto-keywords t]
2476 ["Newsgroups" message-goto-newsgroups t]
2478 ["Followup-To" message-goto-followup-to t]
2479 ;; ["Followup-To (with note in body)" message-cross-post-followup-to t]
2481 ["Distribution" message-goto-distribution t]
2494 ["Mail-Followup-To" message-goto-mail-followup-to t]
2502 ["Goto Body" message-goto-body t]
2503 ["Goto Signature" message-goto-signature t]))
2591 C-c C-f x crossposting with FollowUp-To header and note in body
2593 C-c C-f a Insert X-No-Archive: header and a note in the body
2597 C-c C-b `message-goto-body' (move to beginning of message text).
2598 C-c C-i `message-goto-signature' (move to the beginning of the signature).
2605 C-c C-r `message-caesar-buffer-body' (rot13 the message body).
2619 (set (make-local-variable 'message-draft-article) nil)
2723 (defun message-goto-to ()
2728 (defun message-goto-from ()
2733 (defun message-goto-subject ()
2738 (defun message-goto-cc ()
2743 (defun message-goto-bcc ()
2748 (defun message-goto-fcc ()
2753 (defun message-goto-reply-to ()
2758 (defun message-goto-newsgroups ()
2763 (defun message-goto-distribution ()
2768 (defun message-goto-followup-to ()
2773 (defun message-goto-mail-followup-to ()
2778 (defun message-goto-keywords ()
2783 (defun message-goto-summary ()
2788 (defun message-goto-body (&optional interactivep)
2789 "Move point to the beginning of the message body."
2794 (goto-char (point-min))
2798 (defun message-in-body-p ()
2799 "Return t if point is in the message body."
2800 (let ((body (save-excursion (message-goto-body) (point))))
2801 (>= (point) body)))
2803 (defun message-goto-eoh ()
2806 (message-goto-body)
2809 (defun message-goto-signature ()
2811 If there is no signature in the article, go to the end and
2814 (goto-char (point-min))
2817 (goto-char (point-max))
2840 (message-goto-mail-followup-to)
2847 "Insert a To header that points to the author of the article being replied to.
2863 (error "No mail address in the article"))
2926 (goto-char (point-min))
2931 "Insert the Newsgroups header from the article being replied to."
2945 "Delete everything in the body of the current message outside of the region."
2949 (goto-char beg)
2954 (goto-char end)
2955 (delete-region (point) (if (not (message-goto-signature))
2960 (goto-char beg)
2961 (delete-region beg (progn (message-goto-body)
2966 (when (message-goto-signature)
2973 (message-goto-signature)
2998 (goto-char (match-end 0))
3015 (goto-char (match-end 0))
3021 (goto-char beg)
3027 (goto-char (match-end 0))
3036 (goto-char beg)
3041 (goto-char point)
3066 (if point (goto-char point)))))
3081 (goto-char (point-min))
3099 (goto-char (point-max))
3117 (goto-char (point-max))
3127 (goto-char (point-max))
3137 (message-goto-eoh)
3147 (message-goto-eoh)
3169 (message-goto-eoh)
3180 (message-goto-eoh)
3230 (defun message-caesar-buffer-body (&optional rotnum)
3240 (when (message-goto-body)
3244 (defun message-pipe-buffer-body (program)
3245 "Pipe the message body in the current buffer through PROGRAM."
3248 (when (message-goto-body)
3260 (goto-char (point-min))
3282 (goto-char (point-min))
3300 (goto-char start)
3307 (goto-char (point-max)))
3309 (goto-char start)
3317 (goto-char (point-max))
3327 (goto-char start)
3333 (goto-char start)))
3359 (goto-char (mark t))
3361 (goto-char pt))))
3393 ;; may insert a different article from the original. So, we will
3394 ;; modify the value of `message-reply-headers' with that article.
3409 (goto-char end)
3420 (goto-char start)
3442 ;; may insert a different article from the original. So, we will
3443 ;; modify the value of `message-reply-headers' with that article.
3456 (goto-char start)
3475 (goto-char (point-min))
3480 (goto-char (point-min))
3514 (goto-char start)
3559 (draft-article message-draft-article)
3580 (let ((message-draft-article draft-article))
3674 (put 'message-check 'edebug-form-spec '(form body))
3690 (goto-char (point-max))
3696 (goto-char (car points))
3706 (goto-char (car points))
3716 (message-goto-body)
3744 (message-goto-body)
3796 (goto-char (point-min))
3801 (let ((p (goto-char (point-min)))
3808 (goto-char (point-max))
3809 (goto-char (+ p message-send-mail-partially-limit))
3824 (goto-char (point-min))
3827 (goto-char (point-min))
3830 (message-goto-eoh)
3832 (goto-char (point-min))
3840 (goto-char (point-max))
3843 (goto-char (point-max))
3852 (message-goto-subject)
3894 (goto-char (point-min))
3896 (goto-char (match-beginning 0))
3913 (message-encode-message-body)
3923 (goto-char (point-max))
3999 (goto-char (point-min))
4008 (goto-char (1+ delimline))
4053 (goto-char (point-min))
4067 (goto-char (point-min))
4115 (goto-char (point-min))
4194 (if (not (message-check-news-body-syntax))
4224 (message-encode-message-body)
4235 (goto-char (point-max))
4241 (goto-char (point-min))
4349 (format "The article contains a %s command. Really post? "
4370 (goto-char (point-min))
4382 (y-or-n-p "The article contains an Approved header. Really post? ")
4463 (goto-char (point-min))
4466 (goto-char (match-beginning 0))
4571 (defun message-check-news-body-syntax ()
4575 (goto-char (point-min))
4590 ;; Check whether the article is empty.
4592 (goto-char (point-min))
4597 (goto-char (point-max))
4601 (if (message-gnksa-enable-p 'empty-article)
4602 (y-or-n-p "Empty article. Really post? ")
4603 (message "Denied posting -- Empty article.")
4611 "The article contains control characters. Really post? ")
4617 (format "The article is %d octets long. Really post? "
4632 (goto-char (point-max))
4641 (goto-char (point-max))
4650 (goto-char (point-min))
4662 (goto-char (point-min))
4686 (message-encode-message-body)
4697 (goto-char (point-min))
4706 ;; Pipe the article to the program in question.
4710 ;; Save the article.
4724 "Append this article to Unix/babyl mail file FILENAME."
4742 (goto-char (point-min))
4751 (goto-char (point-min))
4754 (goto-char (point-min))
4757 (goto-char (point-min))
4863 (goto-char (point-min))
4874 (message-goto-body)
4906 (goto-char (point-min))
4911 (goto-char (match-beginning 0)))
4976 (goto-char (point-min))
4981 (goto-char (point-min))
4991 (goto-char fullname-start)
4999 (goto-char fullname-start)
5004 (goto-char fullname-start)))
5157 (goto-char (point-min))
5162 (goto-char (point-max))
5181 "Prepare article HEADERS.
5208 (goto-char (point-min))
5219 (goto-char (point-min))
5282 (goto-char (point-max))
5323 (goto-char (point-min))
5342 (goto-char (point-max))
5365 (goto-char (point-min))
5375 (goto-char last)
5382 (goto-char (point-max))
5410 (goto-char begin)
5414 (goto-char (point-max)))))
5431 (goto-char (point-min))
5486 (goto-char (point-max))
5524 (goto-char
5720 (goto-char (point-min))
5788 (setq message-draft-article
5804 (when message-draft-article
5806 (list message-draft-article) "drafts" nil t)))
5809 "Generate the headers for the article."
5866 "Start editing a news article to be sent."
5919 article, it has the value of
6039 "Start editing a reply to the article in the current buffer."
6111 (goto-char (point-min))
6212 "Non-nil means current article is yours.
6220 ;; IF article has cancel-lock THEN
6224 ;; error: cancellock: article is not yours
6233 (error "Failed to verify Cancel-lock: This article is not yours"))
6256 "Cancel an article you posted.
6260 (error "This is not a news article; canceling is impossible"))
6263 ;; Get header info from original article.
6270 ;; Make sure that this article was written by the user.
6272 (error "This article is not yours"))
6273 (when (yes-or-no-p "Do you really want to cancel this article? ")
6290 (message "Canceling your article...")
6294 (message "Canceling your article...done"))
6300 This is done simply by taking the old article and adding a Supersedes
6304 ;; Check whether the user owns the article that is to be superseded.
6306 (error "This article is not yours"))
6315 (goto-char (point-min))
6317 (error "No Message-ID in this article")
6319 (goto-char (point-max))
6351 (goto-char (point-min))
6358 (goto-char (point-min))
6363 (goto-char (point-max))
6368 (goto-char (point-min))
6371 (goto-char (point-max))
6453 (defvar gnus-article-decoded-p))
6464 (if (local-variable-p 'gnus-article-decoded-p (current-buffer))
6465 gnus-article-decoded-p ;; In an article buffer.
6471 (message-forward-make-body cur digest)))
6473 (defun message-forward-make-body-plain (forward-buffer)
6485 (goto-char (point-min))
6495 (goto-char b)
6500 (defun message-forward-make-body-mime (forward-buffer)
6506 (goto-char (point-min))
6509 (goto-char (point-max)))
6513 (defun message-forward-make-body-mml (forward-buffer)
6525 (goto-char (point-min))
6532 (goto-char (point-min))
6535 (goto-char (point-max))))
6542 (goto-char b)
6547 (defun message-forward-make-body-digest-plain (forward-buffer)
6556 (defun message-forward-make-body-digest-mime (forward-buffer)
6564 (goto-char b)
6569 (defun message-forward-make-body-digest (forward-buffer)
6571 (message-forward-make-body-digest-mime forward-buffer)
6572 (message-forward-make-body-digest-plain forward-buffer)))
6575 (defun message-forward-make-body (forward-buffer &optional digest)
6579 (message-goto-body)
6580 (goto-char (point-max)))
6582 (message-forward-make-body-digest forward-buffer)
6587 (goto-char (point-min))
6591 (message-forward-make-body-mml forward-buffer)
6592 (message-forward-make-body-mime forward-buffer))
6593 (message-forward-make-body-plain forward-buffer)))
6597 (defun message-forward-rmail-make-body (forward-buffer)
6604 (message-forward-make-body forward-buffer))
6615 'message-forward-rmail-make-body))
6619 "Resend the current article to ADDRESS."
6639 (goto-char (point-min))
6649 (goto-char (point-min))
6655 (goto-char (point-max)))
6662 (goto-char beg)
6666 (let ((message-inhibit-body-encoding t)
6690 (goto-char (point-min))
6704 (goto-char boundary)
6711 (goto-char (point-max))
6751 "Start editing a news article to be sent."
6765 "Start editing a news article to be sent."
6791 (goto-char (min start end))
6806 (goto-char (min start end))
6966 (defcustom message-tab-body-function nil
6967 "*Function to execute when `message-tab' (TAB) is executed in the body.
6977 Execute function specified by `message-tab-body-function' when not in
6985 (funcall (or (cdar alist) message-tab-body-function
7042 (goto-char (point-min))
7064 (goto-char (point-min))))
7111 (defvar message-inhibit-body-encoding nil)
7113 (defun message-encode-message-body ()
7114 (unless message-inhibit-body-encoding
7119 (message-goto-body)
7126 (goto-char (point-min))
7135 (goto-char (point-max))
7152 (goto-char (point-min))
7172 From headers in the original article."
7188 (goto-char (point-max))
7233 (goto-char (point-min))