Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-msg.el @ 112:48d667d6f17f r20-1b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b8
author cvs
date Mon, 13 Aug 2007 09:20:48 +0200
parents fe104dbd9147
children 8619ce7e4c50
comparison
equal deleted inserted replaced
111:164ab62060bf 112:48d667d6f17f
405 (if post 405 (if post
406 (progn 406 (progn
407 (message-mail (or to-address to-list)) 407 (message-mail (or to-address to-list))
408 ;; Arrange for mail groups that have no `to-address' to 408 ;; Arrange for mail groups that have no `to-address' to
409 ;; get that when the user sends off the mail. 409 ;; get that when the user sends off the mail.
410 (push (list 'gnus-inews-add-to-address group) 410 (push (list 'gnus-inews-add-to-address pgroup)
411 message-send-actions)) 411 message-send-actions))
412 (set-buffer gnus-article-copy) 412 (set-buffer gnus-article-copy)
413 (message-wide-reply to-address))) 413 (message-wide-reply to-address)))
414 (when yank 414 (when yank
415 (gnus-inews-yank-articles yank)))))) 415 (gnus-inews-yank-articles yank))))))
469 (gnus-post-method 469 (gnus-post-method
470 gnus-post-method) 470 gnus-post-method)
471 ;; Use the normal select method. 471 ;; Use the normal select method.
472 (t gnus-select-method)))) 472 (t gnus-select-method))))
473 473
474 (defun gnus-inews-narrow-to-headers ()
475 (widen)
476 (narrow-to-region
477 (goto-char (point-min))
478 (or (and (re-search-forward
479 (concat "^" (regexp-quote mail-header-separator) "$") nil t)
480 (match-beginning 0))
481 (point-max)))
482 (goto-char (point-min)))
483
484 ;;; 474 ;;;
485 ;;; Check whether the message has been sent already. 475 ;;; Check whether the message has been sent already.
486 ;;; 476 ;;;
487 477
488 (defvar gnus-inews-sent-ids nil) 478 (defvar gnus-inews-sent-ids nil)
489 479
490 (defun gnus-inews-reject-message () 480 (defun gnus-inews-reject-message ()
491 "Check whether this message has already been sent." 481 "Check whether this message has already been sent."
492 (when gnus-sent-message-ids-file 482 (when gnus-sent-message-ids-file
493 (let ((message-id (save-restriction (gnus-inews-narrow-to-headers) 483 (let ((message-id (save-restriction (message-narrow-to-headers)
494 (mail-fetch-field "message-id"))) 484 (mail-fetch-field "message-id")))
495 end) 485 end)
496 (when message-id 486 (when message-id
497 (unless gnus-inews-sent-ids 487 (unless gnus-inews-sent-ids
498 (ignore-errors 488 (ignore-errors
752 (error "No such group: %s" group)) 742 (error "No such group: %s" group))
753 743
754 (save-excursion 744 (save-excursion
755 (save-restriction 745 (save-restriction
756 (widen) 746 (widen)
757 (gnus-inews-narrow-to-headers) 747 (message-narrow-to-headers)
758 (let (gnus-deletable-headers) 748 (let (gnus-deletable-headers)
759 (if (message-news-p) 749 (if (message-news-p)
760 (message-generate-headers message-required-news-headers) 750 (message-generate-headers message-required-news-headers)
761 (message-generate-headers message-required-mail-headers))) 751 (message-generate-headers message-required-mail-headers)))
762 (goto-char (point-max)) 752 (goto-char (point-max))
953 943
954 (defun gnus-inews-insert-gcc () 944 (defun gnus-inews-insert-gcc ()
955 "Insert Gcc headers based on `gnus-outgoing-message-group'." 945 "Insert Gcc headers based on `gnus-outgoing-message-group'."
956 (save-excursion 946 (save-excursion
957 (save-restriction 947 (save-restriction
958 (gnus-inews-narrow-to-headers) 948 (message-narrow-to-headers)
959 (let* ((group gnus-outgoing-message-group) 949 (let* ((group gnus-outgoing-message-group)
960 (gcc (cond 950 (gcc (cond
961 ((gnus-functionp group) 951 ((gnus-functionp group)
962 (funcall group)) 952 (funcall group))
963 ((or (stringp group) (list group)) 953 ((or (stringp group) (list group))
1012 (when groups 1002 (when groups
1013 (when (stringp groups) 1003 (when (stringp groups)
1014 (setq groups (list groups))) 1004 (setq groups (list groups)))
1015 (save-excursion 1005 (save-excursion
1016 (save-restriction 1006 (save-restriction
1017 (gnus-inews-narrow-to-headers) 1007 (message-narrow-to-headers)
1018 (goto-char (point-max)) 1008 (goto-char (point-max))
1019 (insert "Gcc: ") 1009 (insert "Gcc: ")
1020 (if (and gnus-newsgroup-name 1010 (if (and gnus-newsgroup-name
1021 (setq gcc-self-val 1011 (setq gcc-self-val
1022 (gnus-group-find-parameter 1012 (gnus-group-find-parameter