From 82e8c9f405839907960535283b0ff9c9eaa6f977 Mon Sep 17 00:00:00 2001
From: "martin f. krafft" <madduck@madduck.net>
Date: Sat, 6 Oct 2007 22:31:10 +0100
Subject: [PATCH] add attachment checker script

---
 .vim/plugin/mail.vim | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 .vim/plugin/mail.vim

diff --git a/.vim/plugin/mail.vim b/.vim/plugin/mail.vim
new file mode 100644
index 0000000..0f875a4
--- /dev/null
+++ b/.vim/plugin/mail.vim
@@ -0,0 +1,23 @@
+" Checking attachments in edited emails for use in Mutt: warns user when
+" exiting
+" by Hugo Haas <hugo@larve.net> - 20 June 2004
+" based on an idea by The Doctor What explained at
+" <mid:caq406$rq4$1@FreeBSD.csie.NCTU.edu.tw>
+" http://www.vim.org/scripts/download_script.php?src_id=3165
+autocmd BufUnload mutt-* call CheckAttachments()
+function! CheckAttachments()
+  let l:english = 'attach\(ing\|ed\|ment\)\?'
+  let l:french = 'attach\(e\|er\|ée\?s\?\|ement\|ant\)'
+  let l:german = 'an(gehängt\|hängsel)\|bei(gefügt|lage)\|im\_sanhang'
+  let l:ic = &ignorecase
+  if (l:ic == 0)
+    set ignorecase
+  endif
+  if (search('^\([^>|].*\)\?\<\(re-\?\)\?\('.l:english.'\|'.l:german.'\)\>', "w") != 0)
+    let l:temp = inputdialog("Do you want to attach a file? [Hit return] ")
+  endif
+  if (l:ic == 0)
+    set noignorecase
+  endif
+  echo
+endfunction
-- 
2.39.2