;;

;(setq nnmail-split-fancy
;    '(| (any "info-cvs@gnu\\.org" "info-cvs")
;	(any "\\b\\(\\w+\\)@gnu\\.org" "gnu.\\1") 
;        "mail.misc"))

;;
;; Rules to determine the way mailing-lists got splitted in various groups
;;

(setq nnmail-split-methods
      '(
	("info-cvs" "^\\(From:\\|To:\\|Cc:\\|CC:\\|Resent\\).*info-cvs@\\(gnu\\.org\\|prep\\.ai\\.mit\\.edu\\)")
	("savannah-hackers" "^\\(From:\\|To:\\|Cc:\\|CC:\\|Resent\\|List-Archive\\).*savannah-hackers")
	("fsfe-discussion" "^\\(From:\\|To:\\|Cc:\\|CC:\\|Resent\\).*discussion@fsfeurope\\.org")
	("gnu-info" "^\\(From:\\|To:\\|Cc:\\|CC:\\|Resent\\|X-BeenThere:\\).*\\(info-gnu\\|gnu-announce\\|info-gnu-events\\)@gnu.org")
	("linux-dell-laptops" "^\\(From:\\|To:\\|Cc:\\|CC:\\|Resent\\).*linux-dell-laptops@yahoogroups\\.com")
	("evolution" "^\\(From:\\|To:\\|Cc:\\|CC:\\|Resent\\).*evolution@\\(ximian\\|helixcode\\)\\.\\(com\\|org\\)")
	("traduc" "^\\(From:\\|To:\\|Cc:\\|CC:\\|Resent\\).*traduc@traduc\\.org")

	("spam" "^X-Spam-Status: Yes")

	("mail.misc"    "")
	)
)

;;(setq mml-confirmation-set '(multipart))

;;
;; Completion of BBDB addresses in the message header fields
;;

(require 'message-x)

;;
;; Using Gnus Personalities to post using different mail addresses and other headers
;;

(require 'gnus-pers)
(gnus-personality-init)


;;
;; Using Gnus Filter History to get reminder of the mail split that occured
;;

(require 'gnus-filterhist)
;;(setq gnus-filter-history-popup 't)


;; specifique to some organisation:

(defun specialmyorg-resend-message ()
  (interactive)
  (gnus-summary-resend-message "special-in@myorg.org" nil))

(defun specialmyorg-mail-bcc ()
  "Move point to end of BCC-field.  Create a BCC field if none."
  (interactive)
  (expand-abbrev)
  (progn (mail-position-on-field "to")
	     (insert "\nBCC: special-out@myorg.org")))

;;(global-set-key "\C-xn" "BCC: special-out@myorg.org")
(global-set-key "\C-xn" 'specialmyorg-mail-bcc)
(global-set-key "\C-xp" 'specialmyorg-resend-message)


;;
;; Add debug messages into the "mc buffer" when using mailcrypt
;;

(setq mc-gpg-debug-buffer (get-buffer-create "mc debug"))


;;
;; Defining x-face file containing the picture in x-face format
;;

(defvar gnus-x-face-file (expand-file-name "~/.x-face"))

;;
;; Custom function inserting the appropriate content in the sent mail headers
;;

(defun message-insert-x-face ()
  (save-excursion
    (goto-char (point-min))
    (search-forward mail-header-separator)
    (beginning-of-line nil)
    (insert "X-Face: ")
    (insert-file gnus-x-face-file)))

;;
;; Inserting the function in every mail sent process termination
;;

(add-hook 'message-send-hook 'message-insert-x-face)