[elpa] master 17cb462: [gnus-mock] Improvement to previous patch, bump to 0.4.4

[Eric Abrahamsen]

branch: master
commit 17cb462473be90a174cf57d0f8bb0a16f3bda15d
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    [gnus-mock] Improvement to previous patch, bump to 0.4.4
    
    * packages/gnus-mock/gnus-mock.el (gnus-mock-data-dir):
    default-directory actually stands a pretty good chance of being the
    directory where this file is being loaded from (ie the "data" dir will
    be found correctly).
---
 packages/gnus-mock/gnus-mock.el | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/packages/gnus-mock/gnus-mock.el b/packages/gnus-mock/gnus-mock.el
index 6119785..abe4d53 100644
--- a/packages/gnus-mock/gnus-mock.el
+++ b/packages/gnus-mock/gnus-mock.el
@@ -5,7 +5,7 @@
 ;; Author: Eric Abrahamsen <address@hidden>
 ;; Maintainer: Eric Abrahamsen <address@hidden>
 ;; Package-Type: multi
-;; Version: 0.4.3
+;; Version: 0.4.4
 
 ;; This program is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -119,10 +119,11 @@ installation."
   :type 'string)
 
 (defconst gnus-mock-data-dir
-  (when load-file-name
-    (file-name-as-directory (expand-file-name
-                            "data"
-                            (file-name-directory load-file-name))))
+  (file-name-as-directory (expand-file-name
+                          "data"
+                          (if load-file-name
+                              (file-name-directory load-file-name)
+                            default-directory)))
   "Source directory for Gnus mock data.")
 
 ;;;###autoload
@@ -132,8 +133,6 @@ The new Emacs process will be started as \"-Q\", with the 
mock
 Gnus settings pre-loaded.  Any of the normal Gnus entry points
 will start a mock Gnus session."
   (interactive)
-  (unless gnus-mock-data-dir
-    (error "Set `gnus-mock-data-dir' to the \"gnus-mock/data\" directory"))
   (let ((mock-tmp-dir (make-temp-file "emacs-gnus-mock-" t)))
     (condition-case-unless-debug err
        (let ((init-file (expand-file-name "init.el" mock-tmp-dir)))