From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/21848 Path: main.gmane.org!not-for-mail From: Doug Bagley Newsgroups: gmane.emacs.gnus.general Subject: article won't display, errors says article buffer read-only Date: 08 Mar 1999 18:02:13 -0600 Sender: owner-ding@hpc.uh.edu Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1035159876 25039 80.91.224.250 (21 Oct 2002 00:24:36 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 00:24:36 +0000 (UTC) Return-Path: Original-Received: from fisher.math.uh.edu (fisher.math.uh.edu [129.7.128.35]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id TAA08580 for ; Mon, 8 Mar 1999 19:05:10 -0500 (EST) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by fisher.math.uh.edu (8.9.1/8.9.1) with ESMTP id SAB19176; Mon, 8 Mar 1999 18:03:45 -0600 (CST) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Mon, 08 Mar 1999 18:03:41 -0600 (CST) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id SAA22724 for ; Mon, 8 Mar 1999 18:03:26 -0600 (CST) Original-Received: from homer.dejanews.com (homer.dejanews.com [205.238.143.161]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id TAA08400 for ; Mon, 8 Mar 1999 19:03:16 -0500 (EST) Original-Received: from acme.dejanews.com (acme.dejanews.com [205.238.143.160]) by homer.dejanews.com (8.8.6/8.8.6) with ESMTP id SAA12591 for ; Mon, 8 Mar 1999 18:02:14 -0600 (CST) Original-Received: (doug@localhost) by acme.dejanews.com (8.7.5/8.6.12) id SAA06483; Mon, 8 Mar 1999 18:02:13 -0600 Original-To: ding@gnus.org X-Face: "|NaWfYJ-]P="T#?R.9}QgGuFXUd@3vi[.E2q-;"NV3+k_y@zreL2w^ts0XPXt t9^9{uQ@.cu2GgUgK9@HXC\a}Rtah}0'eT~>or7[~Hd?;!\Bpo#"3w>0a0ft-MvvZ X-Disclaimer: I am solely responsible for this message. Original-Lines: 452 User-Agent: Gnus/5.07008 (Pterodactyl Gnus v0.80) XEmacs/20.4 (Emerald) Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:21848 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:21848 --=-=-= 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. --=-=-= Content-Type: message/rfc822 Content-Disposition: inline Content-Transfer-Encoding: 8bit X-From-Line: tmccue@dejanews.com Mon Mar 8 11:55:42 1999 Received: from snowball.dejanews.com (snowball.dejanews.com [205.238.143.185]) by homer.dejanews.com (8.8.6/8.8.6) with SMTP id LAA29594 for ; Mon, 8 Mar 1999 11:55:42 -0600 (CST) Reply-To: From: "Thea McCue" To: "Doug Bagley" Subject: FW: Amazing Date: Mon, 8 Mar 1999 12:00:49 -0600 X-Gnus-Mail-Source: directory:/usr/home/doug/.inbox/ Message-ID: <001601be698d$99514d20$b98feecd@snowball.dejanews.com> MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="----=_NextPart_000_0017_01BE695B.4EB6DD20" X-Priority: 3 (Normal) X-MSMail-Priority: Normal X-Mailer: Microsoft Outlook 8.5, Build 4.71.2173.0 Importance: Normal X-MimeOLE: Produced By Microsoft MimeOLE V4.72.2106.4 Lines: 47 Xref: acme.dejanews.com mail.in:3506 X-Gnus-Article-Number: 3506 Mon Mar 8 11:59:13 1999 This is a multi-part message in MIME format. ------=_NextPart_000_0017_01BE695B.4EB6DD20 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: 7bit 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? ------=_NextPart_000_0017_01BE695B.4EB6DD20 Content-Type: application/octet-stream; name="Welcome to my Cave!!!.url" Content-Transfer-Encoding: 7bit Content-Disposition: attachment; filename="Welcome to my Cave!!!.url" [InternetShortcut] URL=http://www3.mcps.k12.md.us/users/rsfay/magic/index.html Modified=80D4BD46FA64BE0174 ------=_NextPart_000_0017_01BE695B.4EB6DD20-- --=-=-= --=-=-= Content-Type: text/plain; charset=iso-8859-1; name=.gnus Content-Disposition: attachment; filename=.gnus Content-Transfer-Encoding: 8bit Content-Description: my .gnus ;;* 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: ;; ============================ --=-=-= Cheers, Doug --=-=-=--