Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-msg.el @ 34:d620409f5eb8 r19-15b100

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b100
author cvs
date Mon, 13 Aug 2007 08:53:20 +0200
parents e04119814345
children c53a95d3c46d
comparison
equal deleted inserted replaced
33:9ee3cade837d 34:d620409f5eb8
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