projects
/
elisp
/
gnus.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge the t-gnus-6_17-quimby branch.
[elisp/gnus.git-]
/
lisp
/
dig.el
diff --git
a/lisp/dig.el
b/lisp/dig.el
index
e71d6db
..
a7edc3b
100644
(file)
--- a/
lisp/dig.el
+++ b/
lisp/dig.el
@@
-1,5
+1,7
@@
;;; dig.el --- Domain Name System dig interface
;;; dig.el --- Domain Name System dig interface
-;; Copyright (c) 2000, 2001, 2003 Free Software Foundation, Inc.
+
+;; Copyright (C) 2000, 2001, 2002, 2003, 2004,
+;; 2005, 2006 Free Software Foundation, Inc.
;; Author: Simon Josefsson <simon@josefsson.org>
;; Keywords: DNS BIND dig
;; Author: Simon Josefsson <simon@josefsson.org>
;; Keywords: DNS BIND dig
@@
-18,8
+20,8
@@
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
;;; Commentary:
;;; Commentary:
@@
-40,7
+42,8
@@
(eval-when-compile (require 'cl))
(defgroup dig nil
(eval-when-compile (require 'cl))
(defgroup dig nil
- "Dig configuration.")
+ "Dig configuration."
+ :group 'comm)
(defcustom dig-program "dig"
"Name of dig (domain information groper) binary."
(defcustom dig-program "dig"
"Name of dig (domain information groper) binary."
@@
-147,7
+150,8
@@
Buffer should contain output generated by `dig-invoke'."
(set (make-local-variable 'font-lock-defaults)
'(dig-font-lock-keywords t)))
(when (featurep 'font-lock)
(set (make-local-variable 'font-lock-defaults)
'(dig-font-lock-keywords t)))
(when (featurep 'font-lock)
- (font-lock-set-defaults)))
+ (font-lock-set-defaults))
+ (gnus-run-mode-hooks 'dig-mode-hook))
(defun dig-exit ()
"Quit dig output buffer."
(defun dig-exit ()
"Quit dig output buffer."