From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.user/7020 Path: news.gmane.org!not-for-mail From: =?iso-8859-1?Q?Fran=E7ois_Fleuret?= Newsgroups: gmane.emacs.gnus.user Subject: Checking attachments are actually attached Date: Sat, 08 Apr 2006 12:34:21 +0200 Message-ID: <87fykoe4pe.fsf@fleuret.homeunix.org> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: 8bit X-Trace: sea.gmane.org 1144492829 19229 80.91.229.2 (8 Apr 2006 10:40:29 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sat, 8 Apr 2006 10:40:29 +0000 (UTC) Original-X-From: info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org Sat Apr 08 12:40:27 2006 Return-path: Envelope-to: gegu-info-gnus-english@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1FSArY-0002pd-GC for gegu-info-gnus-english@m.gmane.org; Sat, 08 Apr 2006 12:40:17 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1FSArY-00038G-0j for gegu-info-gnus-english@m.gmane.org; Sat, 08 Apr 2006 06:40:16 -0400 Original-Lines: 48 Original-NNTP-Posting-Host: 83.77.26.178 Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!news.tele.dk!news.tele.dk!small.news.tele.dk!kanaga.switch.ch!news-zh.switch.ch!switch.ch!sicinfo3.epfl.ch!sicinfo3.epfl.ch!not-for-mail Original-Newsgroups: gnu.emacs.gnus X-Authenticated-User: fleuret Original-X-Trace: sicinfo3.epfl.ch 1144492493 83.77.26.178 (8 Apr 2006 12:34:53 0200) User-Agent: Gnus/5.110004 (No Gnus v0.4) Emacs/21.4 (gnu/linux) Cancel-Lock: sha1:6EYWUjrweY0QDdxd64cIVGgt+yM= Original-Xref: shelby.stanford.edu gnu.emacs.gnus:77202 Original-To: info-gnus-english@gnu.org X-BeenThere: info-gnus-english@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Announcements and discussions for GNUS, the GNU Emacs Usenet newsreader \(in English\)" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org Errors-To: info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.gnus.user:7020 Archived-At: Dear all, I wrote this, which may be of interest for others: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Checks that the mail contains an attached file if the body refers ;; to such an attachment. The idea comes from ;; http://home.cc.gatech.edu/eaganj/MailApp ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defcustom check-no-missing-attachment-regexp "attach" "*A mail whose body matches this regular expression should contain an attachment") (defun contains-attachment (l) (and l (or (and (eq (car (car l)) 'part) (string= "attachment" (cdr (assoc 'disposition (cdr (car l)))))) (contains-attachment (cdr l))))) (defun check-no-missing-attachment () "Checks the mail contains an attached file if the body refers to such an attachment" (message-goto-body) (and (re-search-forward check-no-missing-attachment-regexp nil t) (not (contains-attachment (mml-parse))) (not (y-or-n-p "An attachment seems to be missing, send message ? ")) (error "You refer to an unexisting attachment."))) (add-hook 'message-send-hook 'check-no-missing-attachment) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Comments are of course welcome. Cheers, -- François Fleuret http://cvlab.epfl.ch/~fleuret