From: Doug Bagley <doug@dejanews.com>
Subject: article won't display, errors says article buffer read-only
Date: 08 Mar 1999 18:02:13 -0600 [thread overview]
Message-ID: <yg9bti3fs3e.fsf@acme.dejanews.com> (raw)
[-- 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
next reply other threads:[~1999-03-09 0:02 UTC|newest]
Thread overview: 20+ messages / expand[flat|nested] mbox.gz Atom feed top
1999-03-09 0:02 Doug Bagley [this message]
1999-03-09 19:55 ` local variables and Gnus security Robert Epprecht
1999-03-10 9:47 ` Felix Lee
1999-03-10 12:12 ` Robert Epprecht
1999-03-11 17:44 ` Per Abrahamsen
1999-03-11 20:29 ` Karl Eichwalder
1999-03-11 21:56 ` Felix Lee
1999-03-12 11:35 ` Jan Vroonhof
1999-03-14 16:08 ` Lars Magne Ingebrigtsen
1999-03-10 13:42 ` Per Abrahamsen
1999-03-10 18:52 ` François Pinard
1999-03-10 19:04 ` François Pinard
1999-03-11 15:37 ` empiric
1999-03-11 15:55 ` Kai.Grossjohann
1999-03-11 18:01 ` Hallvard B Furuseth
1999-03-10 20:01 ` Alan Shutko
1999-03-10 21:55 ` Robert Epprecht
1999-03-14 16:04 ` Lars Magne Ingebrigtsen
1999-03-12 15:34 ` article won't display, errors says article buffer read-only Doug Bagley
1999-03-14 16:03 ` Lars Magne Ingebrigtsen
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=yg9bti3fs3e.fsf@acme.dejanews.com \
--to=doug@dejanews.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).