[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

"Unknown command type" error



Emacs 20.3, pgnus-0.72, nnimap-0.92.

I added in a gnus secondary select method, and now when nnimap tries to
connect to the server I get as far as entering my user name and
password, then nnimap bails with "Unknown command type" displayed in
the minibuffer. Anyone know what's going on here? One thing I noticed
is the following from *Messages*:

  ad-handle-definition: `nnimap-open-server' got redefined
  ad-handle-definition: `nnimap-close-server' got redefined
  ad-handle-definition: `nnimap-server-opened' got redefined
  ad-handle-definition: `nnimap-status-message' got redefined

I can't figure out where these are coming from. A copy of the
*Messages* buffer and my .emacs are attached. Hopefully someone can
spot something here ...

--lyndon
Loading time...
Loading time...done
Loading timer...
Loading timer...done
Loading font-lock...
Loading cus-face...
Loading cus-face...done
Loading font-lock...done
Loading backquote...
Loading backquote...done
Loading gnus-start...
Loading gnus-start...done
Loading cl-extra...
Loading cl-extra...done
ad-handle-definition: `nnimap-open-server' got redefined
ad-handle-definition: `nnimap-close-server' got redefined
ad-handle-definition: `nnimap-server-opened' got redefined
ad-handle-definition: `nnimap-status-message' got redefined
For information about the GNU Project and its goals, type f1 C-p.
Fontifying *scratch*...
Fontifying *scratch*...done
Reading /home/lyndon/.newsrc.eld...
Loading gnus-group...
Loading gnus-group...done
Reading active file from news.esys.ca via nntp...
Reading active file from Execmail via nnimap...
Opening nnimap server on Execmail...
Mark set
Waiting for response from mail.esys.ca...done
Loading ange-ftp...
Loading ange-ftp...done
IMAP password for lyndon@mail.esys.ca: 
IMAP password for lyndon@mail.esys.ca: .
IMAP password for lyndon@mail.esys.ca: ..
IMAP password for lyndon@mail.esys.ca: ...
IMAP password for lyndon@mail.esys.ca: .....

Unknown command type
Commands: d, s, x, u; f, o, 1, 2, m, v; ~, %; q to quit; ? for help.
Mark set [4 times]
(global-set-key "\C-x\C-b" 'buffer-menu)
(global-set-key "\C-h" 'delete-backward-char)
(global-set-key "\M-?" 'help-command)
(global-set-key "\M-`" 'next-error)
(setq c-tab-always-indent nil)		; sane TAB key behaviour

(setq mail-host-address "execmail.ca")	; Default visible domain for From:

(display-time)
(global-font-lock-mode t)
(line-number-mode t)
(custom-set-faces)

;; Options Menu Settings
;; =====================
(cond
 ((and (string-match "XEmacs" emacs-version)
       (boundp 'emacs-major-version)
       (or (and
            (= emacs-major-version 19)
            (>= emacs-minor-version 14))
           (= emacs-major-version 20))
       (fboundp 'load-options-file))
  (load-options-file "/home/lyndon/.xemacs-options")))
;; ============================
;; End of Options Menu Settings


;;; Emacs/W3 Configuration
(setq load-path (cons "/usr/local/share/emacs/site-lisp" load-path))
(condition-case () (require 'w3-auto "w3-auto") (error nil))

;;; GNUS Configuration
(setq load-path
      (cons (expand-file-name "~/src/nnimap-0.92") load-path))
(require 'nnimap)

(setq imap-imtest-arguments "-a kerberos_v4")
(setq gnus-nntp-server "news.esys.ca")
(setq gnus-secondary-select-methods
      '((nnimap "Execmail"
		(nnimap-server-address "mail.esys.ca")
		(nnimap-authenticator cram-md5)
		(nnimap-stream network)
		(nnimap-list-pattern ("INBOX" "*")
				     )
		)
	)
      )
(setq gnus-verbose 10)

;;; Automatically set from customize menus.
(custom-set-variables
 '(url-automatic-caching t)
 '(w3-auto-image-alt nil)
 '(w3-do-scripting t)
 '(w3-default-homepage "http://nss.esys.ca/")
 '(url-keep-history t))

;; MH Setup
(setq mh-progs "/pkg/mh/6.8.3/bin")
(setq mh-lib   "/pkg/mh/6.8.3/etc")
(setq mh-recursive-folders t)
(setq mh-recenter-summary-p t)
(setq mhl-formfile "mh-e.format")

;; Supercite
(add-hook 'mail-citation-hook 'sc-cite-original)
(setq mh-yank-from-start-of-message t)	; for MH-E

;;; ;; Mailcrypt
;;; (load-library "mailcrypt")
;;; (mc-setversion "5.0")			;
;;; (autoload 'mc-install-write-mode "mailcrypt" nil)
;;; (autoload 'mc-install-read-mode "mailcrypt" nil)
;;; (add-hook 'mail-mode-hook 'mc-install-write-install)
;;; (add-hook 'gnus-summary-mode-hook 'mc-install-read-mode)
;;; (add-hook 'message-mode-hook 'mc-install-write-mode)
;;; (add-hook 'news-reply-mode-hook 'mc-install-write-mode)

;;; C Mode Customizations

(setq c-mode-hook 'c-mode-for-lyndon)
(defun c-mode-for-lyndon ()
  "Setup for ESYS coding style"

  (setq c-offsets-alist
	'((string . -1000)                       
	  (c . c-lineup-C-comments)
	  (defun-open . 0)
	  (defun-close . 0)
	  (defun-block-intro . +)
	  (class-open . 0)
	  (class-close . 0)
	  (inline-open . +)
	  (inline-close . 0)
	  (ansi-funcdecl-cont . -)
	  (knr-argdecl-intro . 2)
	  (knr-argdecl . 0)
	  (topmost-intro . 0)
	  (topmost-intro-cont . 0)
	  (member-init-intro . +)
	  (member-init-cont . 0)
	  (inher-intro . +)
	  (inher-cont . c-lineup-multi-inher)
	  (block-open . 0)
	  (block-close . 0)
	  (brace-list-open . 0)
	  (brace-list-close . 0)
	  (brace-list-intro . +)
	  (brace-list-entry . 0)
	  (statement . 0)
	  (statement-cont . +)
	  (statement-block-intro . +)
	  (statement-case-intro . 2)
	  (statement-case-open . 2)
	  (substatement . +)
	  (substatement-open . +)
	  (case-label . 2)
	  (access-label . -)
	  (label . 0)
	  (do-while-closure . 0)
	  (else-clause . 0)
	  (comment-intro . c-lineup-comment)
	  (arglist-intro . 2)
	  (arglist-cont . 0)
	  (arglist-cont-nonempty . c-lineup-arglist)
	  (arglist-close . c-lineup-arglist)
	  (stream-op . c-lineup-streamop)
	  (inclass . +)
	  (cpp-macro . -1000)
	  (friend . 0)
	  (objc-method-intro . -1000)
	  (objc-method-args-cont . c-lineup-ObjC-method-args)
	  (objc-method-call-cont . c-lineup-ObjC-method-call)))


  ;; set the C mode options I like
  (setq comment-column 40)
  (setq c-indent-level 4)
  (setq c-basic-offset 4)
  (setq c-argdecl-indent 2)

  ;; redefine the keybindings the way I like them
  (define-key c-mode-map "\C-c\C-c" 'compile-command)
  (define-key c-mode-map "\C-c\C-e" 'c-comment-edit)
  (define-key c-mode-map "*" 'self-insert-command)
  ;; reverse ^m and ^j for more sane behaviour
  (define-key c-mode-map "\C-m" 'newline-and-indent)
  (define-key c-mode-map "\C-j" 'newline)
  )