Package: xemacs21-packages / 2009.02.17.dfsg.2-4

01_sendmail.dpatch Patch series | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
#! /bin/sh -e
## 01_sendmail.dpatch by OHURA Makoto <ohura@debian.org>
##
## All lines beginning with `## DP:' are a description of the patch.
## DP: Fix Bug#4388
## DP: Mail header must be case-independence according to RFC 822.

if [ $# -lt 1 ]; then
    echo "`basename $0`: script expects -patch|-unpatch as argument" >&2
    exit 1
fi

[ -f debian/patches/00patch-opts ] && . debian/patches/00patch-opts
patch_opts="${patch_opts:--f --no-backup-if-mismatch} ${2:+-d $2}"

case "$1" in
    -patch) patch -p1 ${patch_opts} < $0;;
    -unpatch) patch -R -p1 ${patch_opts} < $0;;
    *)
        echo "`basename $0`: script expects -patch|-unpatch as argument" >&2
        exit 1;;
esac

exit 0

@DPATCH@
Index: xemacs21-packages-2009.02.17.dfsg.2/xemacs-packages/mail-lib/sendmail.el
===================================================================
--- xemacs21-packages-2009.02.17.dfsg.2.orig/xemacs-packages/mail-lib/sendmail.el	2013-11-15 16:47:20.661310997 +0000
+++ xemacs21-packages-2009.02.17.dfsg.2/xemacs-packages/mail-lib/sendmail.el	2013-11-15 16:47:20.657311032 +0000
@@ -412,7 +412,7 @@
 	    '("^\\(X-[A-Za-z0-9-]+\\|In-reply-to\\):.*\\(\n[ \t]+.*\\)*$"
 	      . font-lock-string-face))))
   "Additional expressions to highlight in Mail mode.")
-(put 'mail-mode 'font-lock-defaults '(mail-font-lock-keywords t))
+(put 'mail-mode 'font-lock-defaults '(mail-font-lock-keywords t t))
 
 ;; Courtesy of Per Abrahamsen <abraham@dina.kvl.dk> in an attempt to make
 ;; Emacs and XEmacs less stupid about default mail addresses.