X-Git-Url: https://git.notmuchmail.org/git?a=blobdiff_plain;f=debian%2Fnotmuch.emacsen-startup;h=60bf996820126f3377d68fbeeaf88cfbef32b79e;hb=c471d448379b13d8133dfc73b7bbec43964f26d2;hp=73f387ec474ea23c27064bed38301a27aff46277;hpb=e72a6176e3fc3fcf4b1696e3f0ee9cf66509fb4d;p=notmuch

diff --git a/debian/notmuch.emacsen-startup b/debian/notmuch.emacsen-startup
index 73f387ec..60bf9968 100644
--- a/debian/notmuch.emacsen-startup
+++ b/debian/notmuch.emacsen-startup
@@ -2,18 +2,27 @@
 ;;
 ;; Emacs startup file, e.g.  /etc/emacs/site-start.d/50notmuch.el
 ;; for the Debian notmuch package
-;;
-;; Originally contributed by Nils Naumann <naumann@unileoben.ac.at>
-;; Modified by Dirk Eddelbuettel <edd@debian.org>
-;; Adapted for dh-make by Jim Van Zandt <jrv@debian.org>
 
 ;; The notmuch package follows the Debian/GNU Linux 'emacsen' policy and
 ;; byte-compiles its elisp files for each 'emacs flavor' (emacs19,
 ;; xemacs19, emacs20, xemacs20...).  The compiled code is then
 ;; installed in a subdirectory of the respective site-lisp directory.
 
-(if (not (file-exists-p "/usr/share/emacs/site-lisp/notmuch"))
-    (message "Package notmuch removed but not purged.  Skipping setup.")
+(cond
+ ((not (file-exists-p "/usr/share/emacs/site-lisp/notmuch"))
+  (message "Package notmuch removed but not purged.  Skipping setup."))
+ ((not (file-exists-p (concat "/usr/share/"
+			      (symbol-name debian-emacs-flavor)
+			      "/site-lisp/notmuch")))
+  (message "Package notmuch not fully installed.  Skipping setup."))
+ (t
   (debian-pkg-add-load-path-item
-   (concat
-    "/usr/share/" (symbol-name debian-emacs-flavor) "/site-lisp/notmuch"))
+   (concat "/usr/share/"
+	   (symbol-name debian-emacs-flavor)
+	   "/site-lisp/notmuch"))
+  (autoload 'notmuch "notmuch" "Run notmuch and display saved searches, known tags, etc." t)
+  (autoload 'notmuch-hello "notmuch" "Run notmuch and display saved searches, known tags, etc." t)
+  (autoload 'notmuch-search "notmuch" "Run \"notmuch search\" with the given query string and display results." t)
+  (autoload 'notmuch-show "notmuch" "Run \"notmuch show\" with the given thread ID and display results." t)
+
+  ))