article won't display, errors says article buffer read-only

[Doug Bagley <doug@dejanews.com>]

[-- Attachment #1: Type: text/plain, Size: 475 bytes --]

Using, pgnus-0.80/"20.4 \"Emerald\" XEmacs Lucid", I received the
following article.  When I tried to view it, I got a message in my
minibuffer saying the article buffer is read-only, and then it beeped
at me!  

I'll include my .gnus below too.  Uh, please don't laugh, I've tried
to only steal from the best.

Sorry I don't have time to look into it any further right now.  Very
busy.  

This is my first forward with MIME with extra parts.  I hope I haven't 
screwed up.


[-- Attachment #2: Type: message/rfc822, Size: 1899 bytes --]

[-- Attachment #2.1.1: Type: text/plain, Size: 423 bytes --]

ok,
I can't figure it out.  Can you?

-----Original Message-----
From: David Wilson [mailto:david@dejanews.com] 
Sent: Monday, March 08, 1999 10:29 AM
To: prod_mgmt@dejanews.com
Subject: FW: Amazing


It worked on me! Try it out...

david

-----Original Message-----
From: Heel, Ingo [mailto:ingoh@channeltactics.com] 
Sent: Monday, March 08, 1999 9:07 AM
Subject: FW: Amazing


It sure works!  Can you figure it out?






[-- Attachment #2.1.2: Welcome to my Cave!!!.url --]
[-- Type: application/octet-stream, Size: 107 bytes --]

[InternetShortcut]
URL=http://www3.mcps.k12.md.us/users/rsfay/magic/index.html
Modified=80D4BD46FA64BE0174

[-- Attachment #3: my .gnus --]
[-- Type: text/plain, Size: 13420 bytes --]

;;* The King of France's Glorious .gnus file
;; -*- mode: emacs-lisp -*-
;; Time-stamp: <1999-03-06 15:02:14 doug>
;;
;;* TBD - notes to myself on things I need to do:
;;============================================================
;;- try nnml
;;- modify "from" based on Newsgroups: header?
;;- try nnfolder-generate-active-file for renumber folders.
;;============================================================

;;* INITIALIZATION
;;============================================================
;;
;;* Choose server
;;==============================
(cond ((string-match "kof." (system-name))
       (setq gnus-select-method '(nntp "news.jump.net")))
      (kof:at-home
       (setq gnus-select-method '(nntp "news.jump.net")))
      (kof:at-work
       (setq gnus-select-method '(nntp "news.dejanews.com"))))
;;
;;* Modify key bindings
;;==============================
(cond (kof:this-is-xemacs
       (define-key gnus-summary-mode-map [(super b)] 'kof:toggle-bbdb-gnus-summary)))
;(define-key gnus-summary-mode-map "\s-b" 'kof:toggle-bbdb-gnus-summary)
;;
;;
;;* Startup variables/initialization
;;==============================
(setq gnus-read-active-file 'some)
(setq gnus-activate-foreign-newsgroups 2)
(setq gnus-check-bogus-newsgroups nil)    ; remove bogus newsgroup at startup
(setq gnus-save-killed-list nil)
(setq gnus-secondary-select-methods '((nnfolder "private")))
(setq gnus-ignored-from-addresses kof:my-email-addresses)
(if window-system
    (setq gnus-visual t))
(add-hook 'gnus-group-mode-hook 'gnus-topic-mode)
;;
;;* Shutdown/termination
;;==============================
(add-hook 'gnus-exit-gnus-hook 'kof:gnus-quit-mail)
;;
;;
;;* General behavior variables
;;==============================
(setq gnus-expert-user nil)		; ask me before doing stuff
(setq gnus-carpal nil)			; neato mouse button menu
(setq gnus-post-method 'current)	; post to current server
;;
;;* Mime stuff
;;==============================
(require 'mm-decode)
(setq mm-alternative-precedence
      (cons "text/plain" (delete "text/plain" mm-alternative-precedence)))
;;
;;
;;* Group buffer variables
;;==============================
(setq gnus-group-line-format "%L%M%S%p%P%5y: %(%g%)%l\n")
;;
;;
;;* Summary buffer variables
;;==============================
(setq gnus-auto-select-next nil)
(setq gnus-auto-select-same nil)
(setq gnus-build-sparse-threads nil)	; try to guess missing articles (gabs)
(setq gnus-gather-loose-threads t)	; gather loose threads by comparing subject
(remove-hook 'gnus-summary-prepare-exit-hook 'gnus-summary-expire-articles)
(add-hook 'gnus-summary-prepare-exit-hook 'kof:gnus-retire-read-messages)
(setq gnus-thread-hide-subtree nil)	; collapse threads by default
(setq gnus-use-trees nil)
;;
;;* Article display variables
;;==============================
(setq gnus-single-article-buffer nil)
(setq gnus-view-pseudo-asynchronously t)
(setq gnus-view-pseudos 'not-confirm)
(setq gnus-view-pseudos-separately nil)
(setq gnus-visible-headers "^From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^Followup-To:\\|^Reply-To:\\|^Organization:\\|^Summary:\\|^Keywords:\\|^To:\\|^Cc:\\|^Posted-To:\\|^Mail-Copies-To:\\|^Apparently-To:\\|^Gnus-Warning:\\|^Resent-From:\\|^X-Sent:\\|^X-No-Archive:\\|^X-Newsreader:\\^X-Mailer:")

(defun kof:gnus-modify-article-faces ()
  (set-face-foreground 'gnus-header-name-face "RoyalBlue3")
  (set-face-underline-p 'gnus-header-subject-face t))
(add-hook 'gnus-article-prepare-hook 'kof:gnus-modify-article-faces)
(setq gnus-treat-buttonize t
      gnus-treat-buttonize-head 'head
      gnus-treat-emphasize t
      gnus-treat-fill-article nil
      gnus-treat-strip-cr 'last
      gnus-treat-hide-headers 'head
      gnus-treat-hide-boring-headers 'head
      gnus-treat-hide-signature nil
      gnus-treat-hide-citation nil
      gnus-treat-strip-pgp 'last
      gnus-treat-strip-pem 'last
      gnus-treat-highlight-headers 'head
      gnus-treat-highlight-citation 'last
      gnus-treat-highlight-signature 'last
      gnus-treat-date-ut nil
      gnus-treat-date-local nil
      gnus-treat-date-lapsed 'head
      gnus-treat-date-original nil
      gnus-treat-strip-trailing-blank-lines 'last
      gnus-treat-strip-leading-blank-lines 'last
      gnus-treat-strip-multiple-blank-lines 'last
      gnus-treat-strip-blank-lines nil
      gnus-treat-overstrike 'last)

;;
;;** XEmacs article customization
;;==============================
(cond (kof:this-is-xemacs
       ;; picons
       (setq gnus-picons-piconsearch-url nil)
       ;(setq gnus-picons-piconsearch-url "http://www.cs.indiana.edu:800/piconsearch")
       (setq gnus-picons-database "/usr/pub/faces")
       (setq gnus-treat-display-picons t)
       (add-hook 'gnus-summary-prepare-hook 'gnus-group-display-picons t)
       (setq gnus-picons-group-excluded-groups ".*")
       (setq gnus-picons-display-where 'article)
       (setq gnus-use-picons t) ; replaced by gnus-treat-display-picons?

       ;; xface
       (setq gnus-treat-display-xface 'head)

       ;; smiley
       (require 'smiley)
       (setq gnus-treat-display-smileys 'last)
       (setq smiley-deformed-regexp-alist
	     '(("\\(\\^_?\\^;;;\\)\\W" 1 "WideFaceAse3.xbm")
	       ("\\(\\^_?\\^;;\\)\\W" 1 "WideFaceAse2.xbm")
	       ("\\(\\^_?\\^;\\)\\W" 1 "WideFaceAse1.xbm")
	       ("\\(\\^_\\^\\)\\W" 1 "WideFaceSmile.xbm")
	       ("\\(;_;\\)\\W" 1 "WideFaceWeep.xbm")
	       ("\\(T_T\\)\\W" 1 "WideFaceWeep.xbm")
	       ("\\(:-*[<«]+\\)\\W" 1 "FaceAngry.xpm")
	       ("\\(:-+\\]+\\)\\W" 1 "FaceGoofy.xpm")
	       ("\\(:-*D\\)\\W" 1 "FaceGrinning.xpm")
	       ("\\(:-*[)>}»]+\\)\\W" 1 "FaceHappy.xpm")
	       ("\\(=[)»]+\\)\\W" 1 "FaceHappy.xpm")
	       ("\\(:-[/\\\"]\\)[^/]\\W" 1 "FaceIronic.xpm")
	       ("\\([8]-[|Oo%]\\)\\W" 1 "FaceKOed.xpm")
	       ("\\([:|]-*#+\\)\\W" 1 "FaceNyah.xpm")
	       ("\\(:-*[({]+\\)\\W" 1 "FaceSad.xpm")
	       ("\\(=[({]+\\)\\W" 1 "FaceSad.xpm")
	       ("\\(:-*[Oo]\\)\\W" 1 "FaceStartled.xpm")
	       ("\\(:-*|\\)\\W" 1 "FaceStraight.xpm")
	       ("\\(:-*p\\)\\W" 1 "FaceTalking.xpm")
	       ("\\(:-*d\\)\\W" 1 "FaceTasty.xpm")
	       ("\\(;-*[>)}»]+\\)\\W" 1 "FaceWinking.xpm")
	       ("\\(:-*[Vvµ]\\)\\W" 1 "FaceWry.xpm")
	       ("\\([:|]-*P\\)\\W" 1 "FaceYukky.xpm")))
       (setq smiley-regexp-alist 'smiley-deformed-regexp-alist)
       ))
;;
;;
;;* Incoming mail processing variables
;;==============================
(cond ((string-match "kof." (system-name))
       t)
      (kof:at-work
       (setq nnmail-use-procmail t)
       (setq nnmail-procmail-directory "~/.inbox")
       (setq nnmail-procmail-suffix ".mbox")
       (setq nnmail-resplit-incoming t)))
(setq nnmail-crosspost nil)		; split by first match only
(setq nnmail-treat-duplicates 'delete)
(setq nnmail-delete-incoming nil)	; remove "Incoming*" files?
(setq nnmail-split-methods 'nnmail-split-fancy)
(setq nnmail-split-fancy
      '(| ("from" "doug@bagley.org" "mail.in")
	  ("to\\|cc\\|resent-to" "xemacs-beta" (: kof:retired-mbox-name "xemacs-beta"))
	  ("sender" "owner-xemacs-beta@xemacs.org" (: kof:retired-mbox-name "xemacs-beta"))
	  ("to\\|cc\\|resent-to" "xemacs-ann.*" "xemacs-ann")
	  ("to\\|cc\\|resent-to" "rap@.*" "rap.in")
	  ("x-loop" "Perl5-Porters" (: kof:retired-mbox-name "p5p"))
	  ("from" "Mary.Esther" "mem")
          ("from" "internic.net" "internic")
          ("from" "gdhm.com" "friends")
          ("from" "orasis.com\\|virtual-impact.com" "friends")
          ("from" "pager@dejanews.com" "pager")
          ("from" "austin.ibm.com" "friends")
	  ("to\\|cc\\|resent-to" "kof\\+ml\\.ding" "ding.in")
	  ("to\\|cc\\|resent-to" "ding@gnus.org" "ding.in")
	  ("sender" "owner-ding" "ding.in")
	  ("to" "Friend@public.com" (: kof:retired-mbox-name "spam"))
	  ("from" "angelfire" (: kof:retired-mbox-name "spam"))
	  ("x-mailer" "wMailTo" (: kof:retired-mbox-name "spam"))
	  ("received" "freeyellow.com" (: kof:retired-mbox-name "spam"))
	  ("from" "doug@whammy.com" "doug")
	  ("subject"  "CVS update notice" (: kof:retired-mbox-name "cvs"))
	  ("from\\|to\\|cc" "gnats@dejanews\\.com" "gnats")
	  ("subject" "Changed information for PR" "gnats")
	  ("from" "support@jump.*net" "jump.net")
	  ("from" "jwz" "jwz")
          ("from" "ebay.com" "ebay")
          ("to" "dougb@jump.net" "jumpmail")
	  ("sender" "modperl-owner@apache.org" "modperl.in")
	  ("to\\|cc\\|resent-to" "modperl.*@apache.org" "modperl.in")
	  ("to" "apacheweek@apacheweek.com" "apacheweek")
	  ("to" ".*@cauce.org" "cauce")
	  ("to\\|cc\\|resent-to" "staff.*@dejanews" "staff.in")
	  ("to\\|cc\\|resent-to" "\\([ph]ostmaster\\|abuse\\)" "postmaster")
	  ("from" "SCBagley@aol" "steve")
	  ("to" "apache-announce@apache\\.org" "apache-announce")
	  ("to" "doug@\\(otto\\|homer\\|yow\\|acme\\)" (: kof:retired-mbox-name "spam"))
	  ("from" "gwise@dejanews.com" "misc")
	  ("subject" "\\(Deja News\\|Industry\\) Coverage" "misc")
	  ("subject" "noise\\].*" "misc")
	  ("subject" "humor\\].*" "misc")
	  ("received" "[0-9]*Cust.*\\.uu\\.net" (: kof:retired-mbox-name "spam"))
	  ("received" "dialup\\.mindspring\\.com" (: kof:retired-mbox-name "spam"))
;	  ("received" "may be forged" (: kof:retired-mbox-name "spam"))
	  (: kof:mail-looks-forged "spam")
	  ("to" "kof\\+u.*" (: kof:retired-mbox-name "spam"))
	  (: kof:mail-is-spam "spam")
	  "mail.in"))
          ;; hack to allow fancy splitting on non-word boundaries
          ;(modify-syntax-entry ?< ?w nnmail-split-fancy-syntax-table)
          ;(modify-syntax-entry ?> ?w nnmail-split-fancy-syntax-table)
;;
(setq gnus-message-archive-group
      '((cond 
	 ;; posting to newsgroups --> NEWSPOST
	 ((message-news-p) "NEWSPOST")
	 ;; email reply in a *mail* folder --> same folder
	 ((and gnus-newsgroup-name
	       (message-mail-p)
	       (string-match "^nn[A-Za-z0-9.+]+:" gnus-newsgroup-name))
	  gnus-newsgroup-name)
	 ;; anything else
	 ("nnfolder+private:mail.in"))))

;;* FUNCTIONS
;;
;;** kof:gnus-quit-mail
;;==============================
(defvar kof:gnus-read-mail-window-configuration nil
  "save window config to restore after exiting gnus")
(defun kof:gnus-quit-mail ()
  "Quit the gnus mail folder buffer."
  (interactive)
  (if (window-configuration-p kof:gnus-read-mail-window-configuration)
      (set-window-configuration kof:gnus-read-mail-window-configuration))
  (let ((buf (get-buffer ".bbdb")))
	(if buf (bury-buffer buf)))
  (let ((buf (get-buffer "*BBDB*")))
	(if buf (bury-buffer buf)))
  (setq kof:gnus-read-mail-window-configuration nil))
;;
;;** kof:retired-mbox-name
;;==============================
(defun kof:retired-mbox-name (name)
  "Create a mailbox name string based on current month/year."
  (concat name "." (format-time-string "%Y-%m" (current-time))))
;;
;;** kof:mail-is-spam
;;==============================
(defun kof:mail-is-spam (name)
  "if To: CC: or From: header does not contain my domain, then it's spam.
return 'name.date' if it is spam, otherwise return nil"
  (goto-char (point-min))
  (re-search-forward "^[^: \t]*:" nil t)
  (beginning-of-line)
  (let* ((headers (mail-header-extract-no-properties))
	 (from (mail-header 'from headers))
	 (to (mail-header 'to headers))
	 (cc (mail-header 'cc headers)))
    (if (or (and from (string-match kof:my-domain from))
	    (and to (string-match kof:my-domain to))
	    (and cc (string-match kof:my-domain cc)))
	nil
      (kof:retired-mbox-name name))))
;;
;;** kof:mail-looks-forged
;;==============================
(defun kof:mail-looks-forged (name)
  "if received look like it has a forged DNS name and is not from
a dejanews NY person, then it's spam."
  (goto-char (point-min))
  (re-search-forward "^[^: \t]*:" nil t)
  (beginning-of-line)
  (let* ((headers (mail-header-extract-no-properties))
	 (received (mail-header 'received headers)))
    (if (and (string-match "may be forged" received)
	     (not (string-match "208\\.10\\.193\\." received)))
	(kof:retired-mbox-name name)
      nil)))
;;
;;** kof:toggle-bbdb-gnus-summary
;;==============================
(defun kof:toggle-bbdb-gnus-summary ()
  (interactive)
  (let ((bbdb-win (get-buffer-window "*BBDB*")))
    (if (null bbdb-win)
	(progn
	  (setq bbdb-use-pop-up t)
	  (bbdb/gnus-pop-up-bbdb-buffer))
      (progn
	(setq bbdb-use-pop-up nil)
	(delete-window bbdb-win)))))
;;
;;** kof:gnus-retire-read-messages
;;==============================
;; possibly change this to only move old "O" articles that are
;; older than a certain number of days.
(defun kof:gnus-retire-read-messages ()
  "Move read articles from an inbox to a retired mailbox."
  (interactive)
  ;; we only retire articles that were delivered to mailboxes that end 
  ;; with ".in".
  (if (string-match "^\\(nn.*\\)\\.in$" gnus-newsgroup-name)
      ;; we remove the .in suffix to get the base mailbox name
      (let ((ngname (substring gnus-newsgroup-name (match-beginning 1) (match-end 1))))
	;; limit the summary buffer to read articles
	(gnus-summary-limit-to-marks "RrKkC")
	;; mark them as processable
	(if (gnus-uu-mark-buffer)
	      ;; move them to the retired mbox
	      (gnus-summary-move-article nil (kof:retired-mbox-name ngname)))
	;; undo the limit thing
	(gnus-summary-pop-limit))))

(if (string-match "kof" (system-name))
    (gnus-agentize))

;;* LOCAL VARIABLES
;; ============================
;; Local Variables:
;; mode:Emacs-Lisp
;; outline-regexp: ";;\\*\\**"
;; eval:(outl-mouse-minor-mode 1)
;; eval:(progn (hide-body) (hide-sublevels 1))
;; End:
;; ============================

[-- Attachment #4: Type: text/plain, Size: 14 bytes --]


Cheers,
Doug