problem triggered by gnus

problem triggered by gnus

[Chris Green]

Sometimes when I'm on the last message in a group using Cvs Oort, and
hit n, the emacs (beep) runs non-stop until I have to kill XEmacs.
C-] and C-g do nothing for me in this situation.

Is anyone else having this problem under XEmacs 21.1.14 and bbdb
2.00.06? It happens once or twice a day but I can't seem to figure out
what starts it down its spiral.

Lisp Backtrace from .xsession-errors

  redisplay-echo-area() # bind (inhibit-read-only zmacs-region-stays
  stdout-p frame message) raw-append-message("Selecting deleted or
  non-existent buffer" #<x-frame "emacs" 0x6f53> nil) # bind (stdout-p
  frame message label) append-message(error "Selecting deleted or
  non-existent buffer" #<x-frame "emacs" 0x6f53> nil) # bind
  (print-message-label) display-error((error "Selecting deleted or
  non-existent buffer") t) # bind (inhibit-quit debug-on-error etype
  error-object) command-error((error "Selecting deleted or
  non-existent buffer")) # (catch top-level ...)  Fatal error:
  assertion failed, file
  /home/sprout/src/RPM/BUILD/xemacs-21.1.14/src/eval.c, line 1877,
  abort()

-- 
Chris Green <cmg@uab.edu>
"When the going gets weird, the weird turn pro..."
                            -- Hunter S. Thompson

Re: problem triggered by gnus

[Chris Green]

Chris Green <cmg@uab.edu> writes:

> Sometimes when I'm on the last message in a group using Cvs Oort, and
> hit n, the emacs (beep) runs non-stop until I have to kill XEmacs.
> C-] and C-g do nothing for me in this situation.
> 
> Is anyone else having this problem under XEmacs 21.1.14 and bbdb
> 2.00.06? It happens once or twice a day but I can't seem to figure out
> what starts it down its spiral.
> 

To reproduce, Start Gnus and then use a gnuclient to that XEmacs and
run M-x gnus again and enter a group ( it should occur sometime during
the reading of the first group ).
-- 
Chris Green <cmg@uab.edu>
Joe Cool always spends the first two weeks at college sailing his frisbee.
                -- Snoopy

Re: problem triggered by gnus

[ShengHuo ZHU]

Chris Green <cmg@uab.edu> writes:

> Chris Green <cmg@uab.edu> writes:
> 
> > Sometimes when I'm on the last message in a group using Cvs Oort, and
> > hit n, the emacs (beep) runs non-stop until I have to kill XEmacs.
> > C-] and C-g do nothing for me in this situation.
> > 
> > Is anyone else having this problem under XEmacs 21.1.14 and bbdb
> > 2.00.06? It happens once or twice a day but I can't seem to figure out
> > what starts it down its spiral.
> > 
> 
> To reproduce, Start Gnus and then use a gnuclient to that XEmacs and
> run M-x gnus again and enter a group ( it should occur sometime during
> the reading of the first group ).

Do you put something special in .gnus?

ShengHuo

-- 
(setq gnus-posting-styles 
      '((".*" (signature (format "(setq gnus-posting-styles 
      '%S)" gnus-posting-styles)))))

Re: problem triggered by gnus

[Chris Green]

ShengHuo ZHU <zsh@cs.rochester.edu> writes:

> Do you put something special in .gnus?
> 
> ShengHuo

;; -*- Mode: Emacs-Lisp -*-
;; $Id: .gnus,v 1.35 2001/02/09 15:44:51 sprout Exp $ merging UAB and Home mail spools..
;; (setq gnus-read-active-file 'some) ; (or even nil)
;; (setq gnus-asynchronous t)
(setq gnus-check-new-newsgroups 'ask-server)

(copy-face 'bold 'gnus-group-mail-1-face)
(set-face-foreground 'gnus-group-mail-1-face "mediumblue")
(copy-face 'default 'gnus-group-mail-1-empty-face)
(set-face-foreground 'gnus-group-mail-1-empty-face "mediumblue")

(copy-face 'bold 'gnus-group-mail-2-face)
(set-face-foreground 'gnus-group-mail-2-face "steelblue")
(copy-face 'default 'gnus-group-mail-2-empty-face)
(set-face-foreground 'gnus-group-mail-2-empty-face "steelblue")

;; random sig files...

(add-hook 'gnus-message-setup-hook 'random-signature-fun)

(setq nnfolder-directory "~/Mail/"
      nnmail-delete-incoming t
      nntp-connection-timeout 5
      gnus-read-active-file 'some
      ;; gnus-read-active-file t
       message-user-organization "cmg gadgets and widgets"
       message-default-headers "Fcc: ~/mail/outbox.spool\n"
       enable-multibyte-characters nil 
       gnus-treat-display-smileys nil
       gnus-button-url 'browse-url-netscape
       browse-url-browser-function 'browse-url-netscape
       gnus-unbuttonized-mime-types nil)

(setq gnus-posting-styles
      '((".*"
	 (address "cmg@uab.edu")
	 (name "Chris Green"))))

(setq mail-sources
      '((file)
	(directory :path (expand-file-name "~/mail/")
		   :suffix ".spool")))

(add-hook 'gnus-group-mode-hook 'gnus-topic-mode)

(let ((s (getenv "HOSTNAME")))
  (if (or (string-match "\\.tucc.uab.edu" s)
	  (string-match "phosphorus.dok.org" s))
      ;; uab machines
      ((lambda()
	 (setq gnus-select-method '(nntp "sonofmaze.dpo.uab.edu")
	       nnmail-split-methods
	       '(("redhat-annouce" "^To:.*redhat-announce-list@redhat.com")
		 ("bugtraq" "^To:.*BUGTRAQ@NETSPACE.ORG")
		 ("windowmaker" "^Delivered-To:.*majordom-wmaker@rim.caldera.com")
		 ("windowmaker" "^X-Mailing-List:.*wm-user")
		 ("bugtraq" "^Sender:.*BUGTRAQ@netspace.org")
		 ("digimoe" "^Sender:.*owner-digimoe@rift.com")
		 ("nfr" "^Sender:.*owner-nfr-users@nfr.net")
		 ("mail.root" "^To:.*root@*")
		 ("mail.status.frasier" "^From:.*frasier@frasier.dpo.uab.edu")
		 ("redhat-annouce" "^To:.*redhat-announce-list@redhat.com")
		 ("bugtraq" "^To:.*BUGTRAQ@NETSPACE.ORG")
		 ("mail.jess" "^From.*jlhubbs@yahoo.com")
		 ("mail.jess" "^From.*hubjl1*")
		 ("mail.jess" "^From.*HUBJL1*")
		 ("windowmaker" "^Delivered-To:.*majordom-wmaker@rim.caldera.com")
		 ("windowmaker" "^X-Mailing-List:.*wm-user")
		 ("mail.myself" "^From.*grapeape@norm.dpo.uab.edu")
		 ("mail.myself" "^From.*cmg@dok.org")
		 ("bugtraq" "^Sender:.*BUGTRAQ@netspace.org")
		 ("digimoe" "^Sender:.*owner-digimoe@rift.com")
		 ("nfr" "^Sender:.*owner-nfr-users@nfr.net")
		 ("balu" "^X-From-Line:.*owner-balu@majordomo.scott.net")
		 ("mail.root" "^From:.*root@.*dok.org")
		 ;; ("mail.crazy" "^Subject:.*die\\|^Organization:.*flabby")
		 ("mail.inbox" ""))
	       gnus-total-expirable-newsgroups "status\\|uab.us\\|mail.root\\|mail.status\\|disco\\|etree\\|bugtraq\\|openbsd\\|xemacs-beta\\|linux-security\\|windowmaker\\|redhat-annouce\\|gtk-list\\|UCE\\|mandrake\\|postgres\\|openssh\\|security-audit\\|pygtk\\|mrtg")))
  ((lambda () (setq gnus-select-method '(nntp "news.hoover1.al.home.com"))))))

(defun message-send-and-exit-with-prefix ()
  "Call the message-send-and-exit function with a positive number argument
to make it post the message on the foreign NNTP server of a group, instead
of the default NNTP server"
  (interactive)
  (message-send-and-exit 1))

(load "gnus-setup.el")
(add-hook 'message-setup-hook
	  (lambda ()
	    (local-set-key "\C-c\C-c" 'message-send-and-exit-with-prefix)))

(add-hook 'message-mode-hook 'auto-fill-mode)

;;(autoload 'bbdb/gnus-lines-and-from "bbdb-gnus")
;;(setq gnus-optional-headers 'bbdb/gnus-lines-and-from)
;; (setq bbdb/gnus-mark-known-posters t)

;;(setq bbdb/gnus-mark-known-posters nil)
(copy-face 'default 'gnus-cite-face-5)
(set-face-foreground 'font-lock-other-type-face "darkblue")

(copy-face 'default 'gnus-cite-face-5)
(set-face-foreground 'font-lock-other-type-face "darkgreen")



(setq mm-discouraged-alternatives
      '("text/html"
	"text/richtext"))
(setq mm-automatic-display (delete "text/html" mm-automatic-display))



(defun gnus-group-make-web-group (&optional solid)
  "Create an ephemeral nnweb group.
If SOLID (the prefix), create a solid group."
  (interactive "P")
  (require 'nnweb)
  (let* ((group
	  (if solid (gnus-read-group "Group name: ")
	    (message-unique-id)))
	 (default-type
	   (if (string-match ""
			     (or (car gnus-group-web-type-history)
				 (symbol-name (car (car nnweb-type-definition)))))
	       "dejanews"))
	   
	 (type
	  (gnus-string-or
	   (completing-read
	    (format "Search engine type (default %s): " default-type)
	    (mapcar (lambda (elem) (list (symbol-name (car elem))))
		    nnweb-type-definition)
	    nil t nil 'gnus-group-web-type-history)
	   default-type))
	 (search
	  (read-string
	   "Search string: "
	   (cons (or (car gnus-group-web-search-history) "") 0)
	   'gnus-group-web-search-history))
	 (method
	  `(nnweb ,group (nnweb-search ,search)
		  (nnweb-type ,(intern type))
		  (nnweb-ephemeral-p t))))
    (if solid
	(gnus-group-make-group group "nnweb" "" `(,(intern type) ,search))
      (gnus-group-read-ephemeral-group
       group method t
       (cons (current-buffer)
	     (if (eq major-mode 'gnus-summary-mode) 'summary 'group))))))


;; From: Ingo Ruhnke <grumbel@gmx.de>
(defun my-gnus-summary-show-thread ()
  "Show thread without changing cursor positon."
  (interactive)
  (gnus-summary-show-thread)
  (beginning-of-line)
  (forward-char 1))

(define-key gnus-summary-mode-map [(right)] 'my-gnus-summary-show-thread)
(define-key gnus-summary-mode-map [(left)]  'gnus-summary-hide-thread)

(setq gnus-thread-hide-subtree nil)


(load-library "mailcrypt")
(mc-setversion "gpg")
(setq mc-passwd-timeout 600)
(setq mail-source-delete-incoming t)

(setq mml2015-use 'mailcrypt)
(setq mml-default-sign-method "pgpmime")

-- 
Chris Green <cmg@uab.edu>
Let not the sands of time get in your lunch.

Re: problem triggered by gnus

[Chris Green]

ShengHuo ZHU <zsh@cs.rochester.edu> writes:
> 
> Do you put something special in .gnus?
> 
> ShengHuo
> 

Argh - Reminder: lisp comment region is the same as
message-send-and-exit-with-prefix..... Sigh

I don't believe I have anything special in my .gnus that should be
triggering this.  The only thing I can think is perhaps bbdb
interaction but commenting out from my .emacs didn't help the problem.

(require 'bbdb)
(bbdb-initialize)
(setq bbdb-always-add-addresses 't)
(setq bbdb/news-auto-create-p 't)
(add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus)
(bbdb-insinuate-message)
(require 'expire-bbdb)

(setq debug-on-error t)  only helps by throwing a "entering debugger"
in with the garbage collection and selecting non-existant buffer
messages
-- 
Chris Green <cmg@uab.edu>
Fame may be fleeting but obscurity is forever.